AD-A120  317  CONSTRUCTION  ENGINEERING  RESEARCH  LAB  (ARMY)  CHAMPAIGN  IL  F/G  9/2 

SOFTWARE  DOCUMENTATION  FOR  MILENGl/UTIL  READ-ONLY-MEMORY  MODULE— ETC  <U> 
SEP  82  L  A  THOMAS#.  J  M  DEPONAI 

UNCLASSIFIED  CERL-TR-P-134  _ _ ____  _  NL 


The  contents  of  this  report  are  not  to  be  used  for  advertising,  publication,  or 
promotional  purposes.  Citation  of  trade  names  does  not  constitute  an 
official  indorsement  or  approval  of  the  use  of  such  commercial  products. 
The  findings  of  this  report  are  not  to  be  construed  as  an  official  Department 
of  the  Army  position,  unless  so  designated  by  other  authorized  documents. 


DESTROY  THIS  REPORT  WHEN  IT  IS  NO  I  ONCER  NEEDED 
DO  NOT  RETURN  IT  TO  THE  ORICIN.4  TOR 


UNCLASSIFIED _ 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  (When  Pete  Bntmrmd) 

REPORT  DOCUMENTATION  PAGE 


I.  REPORT  NUMBER  2.  GOVT  ACCESSION  NO. 

CERL-TR-P- 134 _ Vjb.Art*  V 

4.  TITLE  (m\<l  Submit) 

S0F1VARE  DOCUMENTATION  FOR  MILENG1/UTIL  READ-ONLY' 
MEMORY  MODULE 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 

S.  RECIPIENT'S  CATALOG  NUMBER 


S.  TYPE  OP  REPORT  4  PERIOD  COVERED 


FINAL 


S.  PERPORMING  ORG.  REPORT  NUMBER 


7.  AUTHOR/.; 

Laure  A.  Thomas 
John  M.  Deponai  III 

».  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

U.S.  ARMY 

CONSTRUCTION  ENGINEERING  RESEARCH  LABORATORY 
P.0.  BOX  4005,  CHAMPAIGN,  IL  61820 

II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 


•  .  CONTRACT  OR  GRANT  HUMBERT*; 


10.  PROGRAM  ELEMENT.  PROJECT.  TASK 
AREA  4  WORK  UNIT  NUMBERS 


4A762731AT4I-D-049 


II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS  12.  REPORT  DATE 

September  1982 

is.  NUMBER  OF  PAGES 

174 

14.  MONITORING  AGENCY  NAME  4  ADDRESS (It  dillmrmnl  tram  Controlling  01  f let)  IS.  SECURITY  CLASS,  (ml  thlm  rmpmrt) 

Unclassified 

is*,  declassification/downgrading 
schedule 

IB.  DISTRIBUTION  STATEMENT  (o(  thlm  Report) 


Approved  for  public  release;  distribution  unlimited. 


17.  DISTRIBUTION  statement  fo/  tfio  mbmtrmcl  mnlmrmd  In  Block  30,  II  dlttmrmnt  from  Report) 


IB.  SUPPLEMENTARY  NOTES 

Copies  are  obtainable  from  the  National  Technical  Information  Service 

Springfield,  VA  22151 


It.  KEY  WORDS  (Continue  on  rororom  ml  do  ii  neceeeory  mnd  Identity  by  block  number) 

HP  41c 

military  engineering 
computer  applications 
progranmable  calculators 


identity  by  block  number) 


This  report  documents  aix  pilot  military  engineering  programs  and  ten 
utility  routines  developed  as  part  of  an  ongoing  study  to  evaluate  whether 
programmable  hand-held  calculators  can  increase  the  efficiency  or  military 
effectiveness  of  engineer  troop  units  from  platoon  through  brigade  levels. 


DO  ,'ZTt,  U73  EDITION  OP  I  NOV  SB  IS  ONBOLETE 


SECURITY  CLASSIFICATION  OP  THIS  PAOE  T>*»"  Bnlmrmd) 


FOREWORD 


This  investigation  was  conducted  for  the  Directorate  of  Military  Pro- 
grass.  Office  of  the  Chief  of  Engineers  (OCE),  under  Project  4A762731AT41 , 
"Design,  Construction,  and  Operation  and  Maintenance  Technology  for  Military 
Facilities";  Task  D,  "Combat  Engineering  Strategy";  Work  Unit  049,  "Progrmm- 
able  Calculator  Technology  for  Engineer  Troop  Units."  The  applicable  STO  is 
81-5.1:19.  The  OCE  Technical  Monitors  were  LTC  John  Hovard  and  Dr.  Clemens 
Meyer,  both  of  DAEN-ZCM. 

This  work  was  performed  by  the  Facility  Systems  Division  (FS)  of  the  U.S 
Amy  Construction  Engineering  Research  Laboratory  (CERL).  Mr.  E.  A.  Lotz  is 
Chief  of  CERL-FS. 

The  cooperation  and  contributions  of  many  persons  on  the  staff  of  the 
U.S.  Amy  Engineer  School  are  gratefully  acknowledged.  CPI  Scott  Loomer  of 
the  Defense  Mapping  School  is  especially  commended  for  developing  the  Bridge 
Classification  Program  and  all  but  two  of  the  global  utility  routines 
described  in  this  report. 

COL  Louis  J.  Circeo  is  Commander  and  Director  of  CERL,  and  Dr.  L.  R. 
Shaffer  is  Technical  Director. 


CONTENTS 


Page 


DD  FORM  1473  1 

FOREWORD  3 

LIST  OF  TABLES  AMD  FIGURES  5 

1  INTRODUCTION .  9 

Background 

Purpose 

Approach 

Outline  of  This  Report 


Mode  of  Technology  Transfer 

2  MILENG1/UTIL  PROGRAMS,  ROUTINES,  AND  CONVENTIONS .  11 

Major  Application  Programs 
Global  Utility  Routines 
Input  Conventions 
Output  Conventions 
Miscellaneous  Conventions 
Programming  Conventions 
Documentation  Conventions 


APPENDIX  A: 

"BRDGCLS"  Program  Details 

17 

APPENDIX  B: 

"CPM”  Program  Details 

46 

APPENDIX  C: 

"CRATER"  Program  Details 

78 

APPENDIX  D: 

"DEMO"  Program  Details 

92 

APPENDIX  E: 

"MINES"  Program  Details 

111 

APPENDIX  F: 

"WIRE"  Program  Details 

124 

APPENDIX  G: 

Global  Utility  Subroutines 

140 

APPENDIX  H: 

Blank  Forms 

161 

DISTRIBUTION 


4 


TABLES 


WlMfrflT 

A1 

A2 

A3 

B1 

B2 

B3 

Cl 

C2 

C3 

D1 

D2 

D3 

El 

E2 

E3 

FI 

F2 

F3 

A1 

A2 

A3 

A4 

A5 


"BRDGCLS"  Program  Example  —  Without  Printer 
"BRDGCLS"  Program  --  Special  Register  Uses 
"BRDGCLS"  Program  —  Functions,  By  Label 
"CPM"  Program  Example  —  Without  Printer 
"CPM"  Program  —  Special  Register  Uses 
"CPM"  Program  —  Ftmctions,  By  Label 
"CRATER"  Program  Example  —  Without  Printer 

"CRATER"  Progran  —  Special  Register  Uses 
"CRATER"  Program  —  Functions,  By  Label 
"DEMO"  Progran  Example  —  Without  Printer 
"DEMO"  Program  —  Special  Register  Uses 
"DEMO"  Progran  —  Functions,  By  Label 
"MINES"  Progran  Example  —  Without  Printer 
"MINES"  Program  —  Special  Register  Uses 
"MPTJS"  Program  —  Functions,  By  Label 
"WIRE"  Program  Example  —  Without  Printer 
"WIRE"  Program  —  Special  Register  Uses 
"WIRE"  Program  —  Functions,  By  Label 

FIGURES 

"BRDGCLS"  Progran  Sequence  of  Events 
"BRDGCLS"  Program  Example  —  With  Printer 
"BRDGCLS"  Program  Label  Wiring  Diagram 
"BRDGCLS"  Program  —  Detailed  Flowchart 
"BRDGCLS"  Progran  Listing 


Page 

41 

43 

44 
69 
71 
76 

89 

90 

91 

107 

108 
109 
121 
122 
123 

136 

137 

138 


22 

24 

25 

26 
37 


5 


i 


FIGURES  (Cont'd) 


P 

I 


Number 

Bl  "CPM"  Program  Sequence  of  Events 
B2  "CPM”  Program  Example  —  With  Printer 
S3  "CPM"  Program  Label  Wiring  Diagram 

B4  "CPM"  Program  —  Detailed  Flowchart 

B5  "CPM"  Program  Listing 

Cl  "CRATER"  Program  Sequence  of  Events 

C2  "CRATER"  Progran  Example  ~  With  Printer 

C3  "CRATER"  Program  Label  Wiring  Diagram 

C4  "CRATER"  Progran  --  Detailed  Flowchart 

C5  "CRATER"  Program  Listing 

Dl  "DEMO"  Program  Sequence  of  Events 
D2  "DEMO"  Progran  Example  —  With  Printer 
D3  "DEMO"  Program  Label  Wiring  Diagram 

D4  "DEMO"  Program  —  Detailed  Flowchart 

D5  "DEMO"  Program  Listing 

El  "MINES"  Program  Sequence  of  Events 

E2  "MINES"  Progran  Example  —  With  Printer 

E3  "MINES"  Program  Label  Wiring  Diagram 

E4  "MINES"  Program  —  Detailed  Flowchart 

E5  "MINES"  Program  Listing 

FI  "WIRE”  Progran  Sequence  of  Events 

F2  "WIRE"  Progran  Example  —  With  Printer 

F3  "WIRE”  Progran  Label  Wiring  Diagram 

F4  "WIRE"  Program  —  Detailed  Flowchart 

F5  "WIRE"  Program  Listing 


6 


48 

49 

50 
52 
64 
80 
81 
82 
83 
87 

95 

96 

97 

98 
104 

113 

114 

115 

116 
119 
126 

127 

128 
129 
132 


i 


FIGURES  (Cont'd) 


Humber 

G1  Global  Subroutines  —  Listing 
G2  Detailed  Program  Flowchart  for 

G3  Detailed  Program  Flowchart  for 

G4  Detailed  Program  Flowchart  for 

G5  Detailed  Program  Flowchart  for 

G6  Detailed  Program  Flowchart  for 

G7  Detailed  Program  Flowchart  for 

G8  Detailed  Program  Flowchart  for 

G9  Detailed  Program  Flowchart  for 

G10  Detailed  Program  Flowchart  for 

Gil  Detailed  Program  Flowchart  for 


Page 

148 

*S  Subroutine 

150 

*F  Subroutine 

151 

*1  Subroutine 

152 

*0  Subroutine 

154 

*D  Subroutine 

154 

Subroutine 

155 

*A  Subroutine 

157 

*C  Subroutine 

159 

*R  Subroutine 

159 

*P  Subroutine 

160 

7 


SOFTWARE  DOCUMENTATION  FOR  MILENG1/UTIL 
READ -ONLY-MEMORY  MODULE 


1  INTRODUCTION 


Recent  advancements  in  the  state  of  the  art  of  progrmaable  calculators 
have  indicated  that  these  devices  might  help  military  engineers  work  more 
efficiently.  To  determine  the  potential  of  these  systems,  in  March  1980  the 
U.S.  Army  Engineer  School  asked  the  U.S.  Army  Construction  Engineering 
Research  Laboratory  (CERL)  to  see  how  hand-held  programmable  calculators  could 
be  exploited  by  combat  engineers. 


Purpose 

The  overall  objective  of  the  research  is  to  determine  whether  hand-held 
programmable  calculators  can  increase  the  efficiency  or  military  effectiveness 
of  engineer  troop  units  from  platoon  through  brigade  levels.  The  objective  of 
the  first  phase  of  the  study  was  to  develop  a  set  of  pilot  military  engineer¬ 
ing  programs  that  could  be  stored  on  a  read-only-memory  (ROM)  module 
(MILENGl/UTIL) .  This  report  provides  documentation  for  the  six  pilot  programs 
and  10  utility  routines  produced  to  date.  A  future  report  will  describe  the 
overall  results  of  the  study. 


Appmch 

To  date,  CERL  has  accomplished  the  following  steps  in  pursuit  of  the 
research  objective. 

1.  A  state-of-the-art  calculator  system  —  the  Hewlett  Packard  (HP)-41c 
—  was  selected  because  of  the  size  of  its  memory  (four  8000-byte  ROMs)  and 
its  alphanumeric  display  capability. 

2.  A  survey  of  all  active  Army  engineer  units  was  made  to  establish 
priorities  among  the  functional  needs  of  combat  engineer  field  troops. 

3.  Software  programs  were  written  to  address  the  needs  with  the  highest 
priority. 

4.  Magnetic  card  versions  of  these  programs  were  field  tested  for  5 
months  in  eight  engineer  troop  units  in  Korea,  the  United  States,  and  Europe. 
Based  on  the  results  of  these  field  tests  and  on  programming  improvements 
developed  at  the  U.S.  Army  Engineer  School  and  at  the  Defense  Mapping  School, 
the  progrms  were  revised  once  more. 

5.  The  MILENGl/UTIL  ROM  pilot  module  was  developed  and  documented  (in 
this  report)  for  the  most  useful  programs  and  utility  routines. 
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Future  activity  in  support  of  the  research  will  include: 

1.  Distribution  of  the  MILENGl/UTIL  ROM  to  field  test  units  and  to  the 
USAES  for  testing; 

2.  Evaluation  of  the  test  results; 

3.  Writing  a  report  documenting  the  conduct  of  the  research  and  making 
recommendations  on  use  of  progranmable  calculators  by  engineer  troops. 


Outline  of  This  Report 

Chapter  2  is  an  overview  of  the  scope  of  the  six  major  application  pro¬ 
grams,  the  10  global  utility  routines,  and  the  various  conventions  used  in  the 
programs  on  the  MILENGl/UTIL  module.  Comprehensive  descriptions  of  each  pro¬ 
gram  and  of  the  global  utility  routines  are  presented  in  Appendices  A  through 
G.  Appendix  H  provides  a  set  of  blank  forms  that  can  be  used  to  document 
future  user-developed  programs  in  a  standard  format. 


Mode  af ,  TeshaglgKY.  -XraMler 

It  is  recommended  that  the  technology  transfer  media  for  use  of  programm 
able  calculators  by  engineer  troops  include  a  Department  of  the  Army  field 
manual  and  on-site  training  courses  on  the  use  of  the  MILENGl/UTIL  ROM  module. 
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2  MILENG1/UTIL  PROGRAMS,  ROUTINES,  AND  CONVENTIONS 


Major  Application  Programs 

The  MILENG1/UT1L  ROM  module  stores  six  major  application  programs 
designed  to  be  user-friendly,  yet  efficient  in  terms  of  execution  time 
required. 

The  Bridge  Classification  Program 

The  bridge  classification  program  is  used  with  certain  tables  in  Field 
Manual  (FM)  5-34  to  help  the  user  determine  bridge  superstructure  classifica¬ 
tion.  1  This  program  may  be  used  for  both  timber  and  steel  stringer  bridges. 

It  first  asks  the  user  for  information  such  as  the  bridge's  basic  dimensions. 
It  then  refers  the  user  to  appropriate  tables  and  figures  in  FM  5-34,  cells 
him  what  entry  values  he  needs,  and  asks  him  for  the  value  of  the  variables 
corresponding  to  those  entry  conditions.  The  user  extracts  the  appropriate 
values  from  the  manual  and  inputs  them  to  the  calculator.  The  program  deter¬ 
mines  (1)  the  limiting  classifications  for  one-  and  two-way  traffic  by  wheeled 
and  by  track  vehicles;  (2)  the  constraints  imposed  by  moment  and  shear  capa¬ 
city,  deck  thickness,  and  roadway  width;  and  (3)  the  need  for  additional 
braces.  A  more  detailed  description  is  in  Appendix  A. 

The  CPM  Program 

The  critical  path  method  (CPM)  program  provides  an  easy  way  to  do  the 
tedious  calculations  associated  with  using  CPM  project  control,  a  management 
method  becoming  common  in  the  Army.  The  CPM  program  uses  "activity  on  the 
node"  logic.  Up  to  98  activities  can  be  analyzed  if  the  full  resident  capa¬ 
city  for  data  storage  of  the  HP-41cv  model  is  used;  on  the  other  hand,  up  to 
20  activities  can  be  done  on  the  HP-41c  model  without  memory  modules. 

The  program  computes  the  total  float,  the  early  start  and  finish  times, 
and  the  late  start  and  finish  times  for  each  activity.  When  the  HP-41c  is 
used  with  a  printer,  boxes  for  the  various  CPM  activities  are  printed.  The 
user  can  cut  these  out,  paste  them  up,  and  graph  logical  relationships.  When 
no  printer  is  available,  the  user  must  write  down  the  output;  then  diagrams 
can  be  drawn  by  hand  and  annotated  with  the  correct  information.  A  detailed 
description  of  the  CPM  program  is  in  Appendix  B. 

Hoad  Crater  Program 

The  road  crater  program  computes  the  weight  of  explosives,  number  of 
cratering  charges,  and  number  and  depth  of  holes  needed  to  produce  hasty, 
deliberate,  or  relieved  face  road  craters  of  user-specified  lengths.  A  com¬ 
plete  description  of  the  program  is  in  Appendix  C. 


1  Engineer  Field  Data.  Field  Manual  (FM)  5-34  (Headquarters  [HQ] ,  Department 
of  the  Army  [DA],  September  1976). 

*In  this  report,  the  masculine  pronoun  is  used  to  refer  to  both  sexes. 
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The  Demolition  Program 

The  demolition  program  addresses  three  common  engineer  activities:  cut¬ 
ting  timber  and  steel,  and  breaching  walls.  A  menu  of  explosive  types  to  be 
used  is  presented.  The  program  has  three  timber  cutting  options:  internal 
and  external  charge  placement,  and  abatis.  The  steel  cutting  options  cover 
railroad  rails,  round  steel  sections,  structural  steel  sections,  and  carbon 
steel  rods.  The  breaching  applications  are  used  with  the  applicable  tables  in 
FM  5-34.  A  complete  description  is  in  Appendix  D. 

The  Minefield  Program 

The  minefield  program  computes  the  logistical  requirements  for  installing 
a  standard  pattern  minefield  given  the  field  density,  irregular  outer-edge 
cluster  composition,  field  length  and  depth,  and  conditions  under  which  the 
work  is  to  be  done.  The  program  is  detailed  in  Appendix  G. 

The  Wire  Obstacle  Program 

The  wire  obstacle  program  computes  the  logistical  requirements  for 
installing  any  of  seven  common  wire  obstacles:  double  apron  fence,  four-  and 
two-pace;  double  apron  fence,  six-  and  three-pace;  high  wire;  low  wire;  four- 
strand  fence;  triple  standard  concertina;  and  general  purpose  barbed  tape  obs¬ 
tacle.  The  program  can  also  be  U6ed  to  compute  the  effective  length  of  the 
obstacle  according  to  its  function  and  location  on  the  battlefield.  If  the 
user  already  knows  the  effective  length,  he  can  input  the  effective  length 
directly.  A  complete  description  is  in  Appendix  F. 


Global  Utility  Routines 

The  "friendliness"  of  the  application  programs  results  largely  from  a  set 
of  global  utility  routines  providing  standard  input/output  interfaces  to 
users.  Using  these  routines  lets  a  programmer  communicate  with  users  in  a 
standard  format  and  reduces  the  number  of  formats  with  which  users  must  be 
familiar. 

The  10  "global  subroutines"  are  used  by  the  six  main  application  pro¬ 
grams,  and  by  each  other  in  some  cases.  Assuming  a  MILENGl/UTIL  module  is 
plugged  in  the  calculator,  these  utility  routines  are  conveniently  available 
for  field  programmers  to  use  in  writing  ad  hoc  programs.  Wide-spread  adoption 
of  these  routines  would  help  standardize  the  input/output  formats  that  mili¬ 
tary  users  have  to  be  familiar  with. 

The  function  of  each  of  the  10  global  subroutines  is  described  briefly 
below.  A  more  detailed  description  is  given  in  Appendix  G. 

-  Insures  that  enough  data  registers  are  available  to  run  a  given  pro¬ 
gram;  requires  use  of  routines  *0  and  *D. 

*T  -  Provides  for  input  of  numerical  data;  requires  use  of  routines  *0 
and  *D;  rejects  alpha  input  attempts  and  repeats  question. 
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2  MILENG1/UTIL  PROGRAMS,  ROUTINES,  AND  CONVENTIONS 


Maior  Application  Programs 

The  MILENG1/UTIL  ROM  module  stores  six  major  application  programs 
designed  to  be  user-friendly,  yet  efficient  in  terms  of  execution  time 
required. 

The  Bin- age  Classification  Program 

The  bridge  classif ication  program  is  used  with  certain  tables  in  Field 
Manual  (FM)  5-34  to  help  the  user  determine  bridge  superstructure  classifica¬ 
tion.^  This  program  may  be  used  for  both  timber  and  steel  stringer  bridges. 

It  first  asks  the  user  for  information  such  as  the  bridge's  basic  dimensions. 
It  then  refers  the  user  to  appropriate  tables  and  figures  in  FM  5-34,  tells 
him  what  entry  values  he  needs,  and  asks  him  for  the  value  of  the  variables 
corresponding  to  those  entry  conditions.  The  user  extracts  the  appropriate 
values  from  the  manual  and  inputs  them  to  the  calculator.  The  program  deter¬ 
mines  (1)  the  limiting  classifications  for  one-  and  two-way  traffic  by  wheeled 
and  by  track  vehicles;  (2)  the  constraints  imposed  by  moment  and  shear  capa¬ 
city,  deck  thickness,  and  roadway  width;  and  (3)  the  need  for  additional 
braces.  A  more  detailed  description  is  in  Appendix  A. 

The  CPM  Program 

The  critical  path  method  (CPM)  prrgram  provides  an  easy  way  to  do  the 
tedious  calculations  associated  with  using  CPM  project  control,  a  management 
method  becoming  common  in  the  Army.  The  CPM  program  uses  "activity  on  the 
node"  logic.  Up  to  98  activities  can  be  analyzed  if  the  full  resident  capa¬ 
city  for  data  storage  of  the  HP-41cv  model  is  used;  on  the  other  hand,  up  to 
20  activities  can  be  done  on  the  HP-41c  model  without  memory  modules. 

The  program  computes  the  total  float,  the  early  start  and  finish  times, 
and  the  late  start  and  fimsh  times  for  each  activity.  When  the  HP-41c  is 
used  with  a  printer,  boxes  for  the  various  CPM  activities  are  printed.  The 
user  can  cut  these  out,  paste  them  up,  and  graph  logical  relationships.  When 
no  printer  is  available,  the  user  must  write  down  the  output;  then  diagrams 
can  be  drawn  by  hand  and  annotated  with  the  correct  information.  A  detailed 
description  of  the  CPM  progran  is  in  Appendix  B. 

Road  Crater  Program 

The  road  crater  program  computes  the  weight  of  explosives,  number  of 
cratering  charges,  and  number  and  depth  of  holes  needed  to  produce  hasty, 
deliberate,  or  relieved  face  road  craters  of  user-specified  lengths.  A  com¬ 
plete  description  of  the  program  is  in  Appendix  C. 


1  Engineer  Field  Data.  Field  Manual  (FM)  5-34  (Headquarters  [HQ] ,  Department 
of  the  Army  [DA],  September  1976). 

*In  this  report,  the  masculine  pronoun  is  used  to  refer  to  both  sexes. 
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*9  -  Outputs  numerical  answer  in  alpha  form;  requires  use  of  routine  *D. 

*D  -  Displays  output  and  alerts  user  by  sounding  a  two-tone  signal. 

*y  -  Appends  a  "(Y/N)?"  to  yes/no  questions;  sets  flag  "10"  if  response 
is  "Y";  clears  flag  "10”  if  response  is  "N";  rejects  all  other  responses  as 
invalid,  then  repeats  original  question. 

*A  -  Provides  for  input  of  alpha  data;  rejects  numeric  responses  and 
repeats  original  question. 

*F  -  Clears  general  purpose  flags  "01  through  07". 

*C  -  Clears  a  block  of  registers  specified  by  the  programmer. 

*E  -  Provides  "round-up"  capability. 

*P  -  Displays  "END  PROGRAM"  message  and  sounds  a  two-tone  signal  to 
announce  the  message. 


Input  Conventions 

A  user  has  to  learn  only  a  few  conventions  to  be  able  to  use  the 
MILENG1/UTIL  programs  effectively. 

The  Yes /No  Request 

The  user  is  presented  with  an  alpha  string  that  ends  with  "(Y/N)?".  The 
user  must  respond  with  either  a  "Y  R/S"*  (for  yes),  or  "N  R/S"  (for  no).  Any 
other  responses  will  be  rejected  by  the  program  and  the  questions  will  be 
displayed  again.  When  the  program  presents  the  user  such  a  question,  the  cal¬ 
culator  is  automatically  put  in  the  alpha  mode  while  awaiting  the  user's 
response . 

The  Numeric  Input  Request 

The  user  is  presented  with  an  alpha  string  representing  the  variable's 
name  and  unit  of  measure,  ending  with  "»7".  The  user  must  key  in  a  numeric 
string  and  press  the  R/S  key.  The  ENTER  key  is  not  used.  If  an  alpha  string 
is  keyed  in,  it  is  rejected  and  the  question  repeated.  If  the  input  is  not 
within  the  allowable  range  specified  in  the  program,  one  of  the  following  mes¬ 
sages  is  displayed:  "MUST  BE  <*  (some  maximum  value)"  or  "MUST  BE  >■  (some 
minimum  value)."  Then  the  original  question  is  repeated. 

Users  also  should  be  aware  of  an  optional  format  for  a  numerical  input 
request.  This  option  is  not  used  in  any  of  the  application  programs  on  the 
MILENGl/UTIL  module.  However,  in  future  applications,  some  programmers  might 
exercise  the  "FS  09"  option  of  the  global  *1  subroutine  (described  in 


*  When  several  letters/symbols  are  underlined,  it  means  that  as  a  group  they 
identify  the  name  of  a  single  key  on  the  calculator.  Only  key  function 
names  are  shown.  Use  of  the  shift  key,  if  needed,  is  assumed.  Single 
letters  or  numbers  represent  individual  keys  on  the  calculator. 
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Appendix  G).  The  format  is  much  the  same  as  described  above.  However,  a  ten¬ 
tative  uumeric  answer  would  be  displayed  between  the  and  the  "?" .  If  the 

user  agrees  with  the  tentative  answer,  he  would  press  only  the  R/S  key  and  the 
progran  would  use  that  value.  If  the  user  wants  to  use  another  value  of  the 
variable,  he  would  key  in  the  numeric  string,  then  press  the  "R/S”  key.  This 
option  should  not  be  confused  with  the  yes/no  format  described  above  and  is 
distinguished  by  the  fact  that  no  "(Y/N)"  appears  in  the  question  and  the  cal¬ 
culator  is  not  left  in  the  "alpha"  mode.  However,  if  the  user  inadvertently 
answers  with  a  "Y  R/S"  or  "N  R/S”  response,  the  subroutine  simply  rejects  that 
response  and  repeats  the  original  question. 

The  Alpha  Input  Request 

The  user  is  presented  with  an  alpha  string  ending  with  "*?"  and  the  cal¬ 
culator  is  left  in  the  "alpha"  mode  while  it  awaits  a  response.  This  feature 
is  not  used  by  any  of  the  application  programs  presently  on  the  MILENG1/UTIL 
module  but  could  appear  in  future  program  applications.  The  user  must  key  in 
the  alpha  string  answer,  then  press  the  R/S  key.  The  ENTER  key  is  not  used. 

If  the  user  were  to  take  the  calculator  out  of  the  alpha  mode  and  input  a 
numeric  answer,  the  program  would  reject  the  answer  and  repeat  the  question. 
Only  alpha  characters  are  accepted  when  this  input  feature  is  used. 

Users  should  be  aware  of  an  optional  format  for  an  alpha  input  request. 

It  is  not  used  in  MILENG1/UTIL  programs,  but  may  be  used  in  future  applica¬ 
tions  if  programmers  exercise  the  "FS  09"  option  of  the  global  *A  subroutine 
(described  in  Appendix  G).  The  format  is  the  same  as  above,  but  a  tentative 
alpha  answer  appears  between  the  "="  and  the  "?".  If  the  user  agrees  with 
this,  he  presses  the  R/S  key  and  the  program  uses  that  answer.  If  the  user 
wants  to  try  another  response,  he  would  key  in  the  alpha  6tring,  then  press 
the  R/S  key.  However,  if  the  user  answers  with  a  "Y  R/S"  or  a  "N  R/S” 
response  (to  signify  that  he  agreed  or  disagreed  with  the  tentative  response), 
the  "Y"  or  "N"  would  be  misinterpreted  by  the  program  as  a  replacement  value 
for  the  tentative  alpha-string.  Users  should  be  careful  to  answer  "Y"  or  "N" 
only  to  questions  that  are  displayed  with  a  "(Y/N)"  immediately  preceding  the 
question  mark. 


Output  Conventions 

All  "MILENGl/UTIL"  programs  are  designed  to  run  with  or  without  a 
printer.  If  a  printer  is  attached,  the  program  stops  only  when  the  user  must 
respond  to  a  request  for  input  and  at  the  very  end  of  the  program.  If  a 
printer  is  not  attached,  the  program  will  stop  at  these  same  points  and  after 
each  line  of  output.  To  continue  with  the  program  execution  and  output  opera¬ 
tions  the  user  must  press  the  R/S  key  each  time  the  program  stops.  If  a 
printer  is  used,  it  should  be  set  to  the  "NORM"  mode. 
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Pi'ogt'am  Access 


To  access  a  particular  progran  or  global  subroutine,  the  user  "executes" 
the  progran  name.  The  names  of  the  six  application  programs  are  "BRDGCLS," 
"CPM,"  "CRATER,"  "DEMO,"  "MINES,"  and  "WIRE";  the  10  global  subroutines  are 
*S,  *1,  *0,  *D,  *Y,  *A,  *C,  *R,  *P,  and  *F.  For  example,  to  call  the  MINES 
progran,  the  user  would  press  "XEO  ALPHA  MINES  ALPHA". 

Size  Check 

The  first  step  in  each  application  program  on  the  MILENGl/UTIL  module  is 
to  insure  that  there  are  enough  data  registers  available  to  execute  the  pro¬ 
gram.  If  there  are,  the  progran  continues;  if  not,  the  progran  tells  the  user 
to  "RESIZE  >  (No.  of  Registers  Required,  minus  one)."  Note  that  the  00  regis¬ 
ter  counts  as  one  of  the  registers  —  thus,  the  ’'minus  one.”  The  minimum 
number  of  registers  required  for  each  progran  is  as  follows: 


Program 

No.  of  Registers  Reouired 

BRDGCLS 

52 

CPM 

(No.  of  Activities  x  2)  +  43 

CRATER 

40 

DEMO 

41 

MINES 

53 

WIRE 

44 

Register  Use 

Registers  00  through  19  are  reserved  for  the  user.  The  contents  of  these 
registers  are  not  altered  by  the  programs  on  MILENGl/UTIL.  The  contents  of 
registers  20  and  above  may  be  altered,  depending  on  which  programs  are  exe¬ 
cuted. 


Programming  Conventions 

All  of  the  programs  on  "MILENGl/UTIL"  use  the  programming  conventions 
described  below.  For  the  sake  of  uniformity,  it  is  recommended  that  future 
prograns  use  the  same  conventions. 

1.  General  purpose  flags  "00  through  07"  and  registers  30  and  beyond 
used  in  a  program  are  cleared  at  the  start  of  the  program  to  initialise,  and 
at  the  end  to  "tidy  up." 

2.  The  date  on  which  the  last  change  to  a  program  was  made  is  recorded 
just  before  the  "END"  statement.  This  is  especially  useful  when  programs  are 
being  developed  and  there  are  many  copies  that  differ  only  in  a  few  details. 
One  can  easily  tell  whether  the  latest  version  is  being  used. 

3.  When  programming  for  sequential  input,  one  should  not  assume  that 
values  entered  previously  are  still  in  the  stack.  Users  can  too  easily  alter 
the  contents  of  the  stack  during  the  input /output  process.  For  example,  a 


user  might  erroneously  press  the  ENTER  key  before  the  R/S  key  when  inputting 
data.  This  will  not  invalidate  the  particular  input  being  done,  but  it  will 
change  the  contents  in  the  stack.  Another  possibility  is  that  intermediate 
output  values  might  be  used  to  compute  other  requirements;  this  would  also 
alter  the  stack  contents. 

4.  As  much  as  possible,  data  required  for  the  program  to  execute  are 
requested  at  the  start  of  the  progran,  not  at  the  point  in  the  program  where 
input  is  needed.  This  is  more  convenient  for  the  user. 

5.  Data  registers  00  through  19  are  reserved  for  users.  Registers  20 
through  29  are  reserved  for  use  by  global  subroutines.  Registers  30  and 
beyond  are  available  for  data  storage  needed  to  run  the  application  programs. 

6.  When  menus  are  presented  by  the  program,  a  loop  is  provided  back  to 
the  beginning  of  the  menu  if  the  user  does  not  choose  one  of  the  items.  This 
enables  the  user  to  see  what  he  has  to  choose  from  before  making  his  decision. 


Documentation  Conventions 

The  forms  in  Appendix  H  can  be  used  to  document  future  programs  that  may 
be  written  by  military  engineers.  Appendices  A  through  G  provide  specific 
examples  of  the  level  of  detail  that  might  be  employed  to  describe  the  pro¬ 
grams. 
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APPENDIX  A: 

"BRDGCLS"  PROGRAM  DETAILS 


This  appendix  provides  detailed  infonaation  about  the  bridge  classifica¬ 
tion  ("BRDGCLS")  program.  Figure  Al  shows  the  typical  sequence  of  events  and 
the  options  that  a  user  encounters  when  executing  this  program.  Table  Al  is  a 
sample  problem  showing  the  specific  steps  that  must  be  followed  when  one  uses 
the  HP-41  calculator  without  a  printer  attached.  In  this  example,  the  clas¬ 
sification  of  a  timber  trestle  bridge  is  determined. 

"BRDGCLS"  requires  the  use  of  tables/figures  in  FM  5-34.  In  step  19  of 
Table  Al,  for  example,  the  user  must  input  the  moment  capacity  of  a  timber 
stringer  from  Table  7-1,  FM  5-34.  In  any  step  that  displays  a  message,  such 
as  step  2  in  the  same  example,  the  user  has  to  press  the  R/S  key  to  restart 
the  program  after  each  part  of  the  message  is  displayed.  If  a  printer  were 
attached  and  set  to  the  "NORM"  printer  mode,  the  program  would  advance 
automatically.  Steps  46  through  51  of  Table  Al  and  all  other  steps  that  out¬ 
put  data  would  also  be  executed  automatically  if  a  printer  were  attached. 
Figure  A2  shows  the  output  from  a  run  of  the  "BRDGCLS”  program  with  a  printer 


attached. 

Abbreviations  used  in  "BRDGCLS"  are: 

Symbol 

CLS, CLASS 

DT 

FIG 

FT 

IN 

KP 

L, M 
LAM 
LN 
M 

M. DL 
M,LL 
Nl 
N2 

S,B 

S.S 

STR 

TAB 

TBR 

THICK 

V 

V,DL 

V,LL 

WY 

(Y/N) 

# 


Meaning 

Classification 

Deck  thickness 

Figure 

Feet 

Inches 

Kip 

Maximum  span  length 

Laminated 

Lane 

Moment  capacity 
Dead  load  moment 
Live  load  moment 

Effective  number  of  stringers /lane 
Effective  number  of  stringers /lane 
for  a  two-lane  bridge 
Maximum  bracing  spacing 
Stringer  spacing 
Stringer 
Table 
Timber 
Thickness 
Shear  capacity 
Dead  load  shear 
Live  load  shear 
Way 

(Yes /No) 

Number 


There  are  several  operating  limits  for  input  variables  in  the  program: 


Variable 

Units 

Minimum 

Maximum 

Road  width 

Feet 

8 

50 

Span  length 

Feet 

10 

200 

Stringer  number 

Each 

2 

25 

Stringer  width 

Inches 

4 

20 

Stringer  depth 

Inches 

6 

60 

Stringer  flange  thickness 

Inches 

0.3 

2 

Stringer  spacing 

Inches 

10 

100 

Deck  thickness 

Inches 

2 

12 

I  laminated 

Percent 

0 

100 

Number  of  braces 

Each 

0 

20 

Moment  capacity 

Kip-feet 

3 

3100 

Shear  capacity 

Kip 

3 

600 

Maximum  span  length 

Feet 

9 

135 

Maximum  bracing  spacing 

Feet 

6 

26 

Dead  load  moment 

Kip-feet 

3 

1200 

Dead  load  shear 

Kip 

1 

65 

Wheel  classification 

Class 

0 

150 

Track  classification 

Class 

0 

150 

Classification 

Class 

0 

150 

Algorithms  used  in  the  program  were  taken  from  FM  5-34  (pp  170-184  and  199- 
203J .  Critical  assumptions  and  formulas  are  described  below: 

1.  Conduct  a  bridge  reconnaisance  to  obtain  the  following  information  on 
the  existing  bridge: 

Road  width  (Wr)  in  feet 

Span  length  (L)  in  feet 

Type,  size,  and  number  of  stringers 

Thickness  of  decking  in  inches  and  type  of  decking 

Number  of  lateral  braces. 

2.  In  Table  7-1  or  7-2  of  FM  5-34,  locate  the  stringer  to  be  classified 
and  determine  the  moment  capacity  (M)  in  kip-feet,  shear  capacity  (V)  in  kips, 
maximum  span  length  (L,M)  in  feet,  and  maximum  bracing  spacing  (S,B)  in  feet 
(for  steel  stringers). 

3.  Determine  if  bridge  is  one  or  two  lanes.  If  Wr  >.18  ft,  the  bridge 
is  two- lane. 

4.  Obtain  the  dead  load  moment  per  span  (M,DL)  in  kip-feet  and  dead  load 
shear  per  span  (V,DL)  in  kips  for  the  type  of  superstructure  involved  from 
Figure  7-4,  FM  5-34. 

5.  Calculate  number  of  lateral  braces  (Nb): 

Steel :  Nb  “  — —  +  1 
S  |  B 

Timber:  **  3,  If  d  >  2b  for  stringer. 
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If  necessary,  add  bracing  as  required. 


6.  Calculate  dead  load  moment  per  str:  jger  (M.DL/STR): 
M,DL  M,DL 


STR  Ns 


(ft-kip)  where  Ns  ■  number  of  stringers. 


7.  Calculate  live  load  moment  per  stringer  (M,LL/STR): 

.  M,LL  M-M.DL/STR  ,  .  s 

Steel:  — = —  -  - - -  (ft-kip). 

STR  1.15 

Timber:  -  M-(M,DL/STR)  (ft-kip). 

STR 


Check  the  maximum  span  length  (L,M)  of  the  stringer  from  Table  7-1  or  7-2,  FM 
5-34.  If  L,M  >  L,  proceed  to  Step  8.  If  L,M  <  L,  multiply  M.LL/STR  by  the 
ratio  L,M/L  to  obtain  a  new,  lower  value  of  M,LL/STR. 


8.  Calculate  effective  number  of  stringers  per  lane  for  one-way  (N})  and 
two-way  traffic  (N2). 

One-way  traffic:  Ni  ■  — ~  +  1  where  S,S  *  stringer  spacing  in  inches 

S ,  S 

3 

Two-way  traffic:  N2  ■  —  x  Ns 

O 

(Note:  Do  not  round  off  Nj  or  N2) 

For  one-way:  If  Nj  >  N2  use  N]_ 

If  N2  >  Ni  use  Ni 

For  two-way:  If  N^  >  N2  use  N2 
If  Nj  >  Ni  use  Nj. 

9.  Calculate  live  load  moment  per  lane  (M,LL): 

M,LL  •  »!  x  (M.LL/STR)  ( ft-kip/ lane ) . 

10.  Determine  the  bridge  classification  based  on  bending  moment  by 
entering  M,LL  and  span  length  into  Figure  7-3,  FM  5-34,  for  both  wheeled  and 
tracked  vehicles.  Note:  If  Ni  >  N2,  return  to  Step  9  and  calculate  M,LL 
using  N2  in  place  of  Nj.  Obtain  another  classification  for  two-way  traffic 
from  Figure  7-3,  FM  5-34. 


11.  Calculate  dead  load  shear  per  stringer  (V,DL/STR): 


V,DL 

STR 


V,DL  . 

— —  (ft-kip). 

NS 


12.  Calculate  live  load  shear  per  stringer  (V,LL/STR): 


IiLL  .  y  _  LJSfc  (ft-kip). 

STR  STR 
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14.  Determine  the  bridge  classification  based  on  shear  by  entering  V,LL 
and  span  length  into  Figure  7-5,  FM  5-34,  for  both  wheeled  and  tracked  vehi¬ 
cles.  Note:  If  Ni  >  N2,  return  to  Step  13  and  calculate  V,LL  using  N2  in 
place  of  Nj.  Obtain  another  classification  for  two-way  traffic  from  Figure 
7-5,  FM  5-34. 


15.  In  Table  7-6,  FM  5-34,  find  the  maximum  classification  based  on 
roadway  width  restrictions  for  one-way  and  two-way  traffic. 

16.  Determine  the  decking  classification: 


a.  Find  the  effective  thickness  for  the  type  of  decking  (teff)  involved: 

For  laminated  decking:  teff  “  (tactual )(*  la“inated) 

For  plank  deck:  te^f  =■  tactuai  -  2  in. 

(Note:  Subtract  2  in.  for  multilayered  plank  deck  only.) 

b.  Find  the  decking  class  by  entering  the  effective  thickness  and 
stringer  spacing  into  Figure  7-7,  FM  5-34. 

17.  Find  the  final  bridge  classification  by  comparing  the  classes  for 
moment,  shear,  two-way  width,  and  deck,  and  then  selecting  the  lowest  critical 
class  for  each  type  crossing,  wheeled  or  track. 

"BRDGCLS"  uses  registers  30  through  51  to  store  the  values  described  in 
Table  A2.  The  program  uses  general  purpose  flags  00  through  05  as  described 
below. 


Flag 

Usage 

00 

Set 

if  steel  stringers  are  used 

01 

Set 

if  a  laminated  deck 

02 

Set 

if  a  two-lane  bridge 

03 

Set 

if  Ni  >  N2 

04 

Set 

if  additional  braces  are  needed 

05 

Temporary  use  —  intermediate  computation 

Table  A3  describes  the  general  function  of  each  part  of  the  program,  by 
label.  Figure  A3  is  a  label  wiring  diagram  showing  how  the  different  parts  of 
the  program  relate  to  each  other.  A  circular  loop  on  the  diagram  indicates  a 
return  to  the  same  ’abel.  A  two-headed  arrow  pointing  to  and  from  a  subrou¬ 
tine  indicates  that  the  program  executes  that  as  a  local  subroutine  then 
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return*  to  the  main  program.  Global  subroutines,  used  by  the  major  applica¬ 
tion  progress  on  the  HILENGl/UTIL  module,  are  not  shown  on  the  wiring  diagram. 
Global  subroutines  are  described  separately  in  Appendix  G. 

Figure  A4  is  a  detailed  flowchart  of  the  "BRDGCLS"  program,  and  Figure  A5 
lists  the  program  steps. 
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User  executes  "BRDGCLS" 

I 

User  enters  road  width  in  feet 

....  .... 

User  enters  number  of  stringers 

User  decides  if  stringers  are  steel 

.  1 

User  enters  stringer  width  in  inches 

I 

User  enters  stringer  depth  in  inches 

I 

User  enters  stringer  flange  thickness  in  inches* 

User  enters  stringer  spacing  in  inches 

1 

User  enters  deck  thickness  in  inches 
User  decides  if  laminated 


(No) 


User  decides  if  layered 


(Yes) 

1 


User  enters  X  laminated 


User  enters  number  of  braces 

I 

User  enters  moment  capacity  (kip-ft)  from  Tab.  7-1  or  7-2.  FM  5-34 

» 

User  enters  shear  capacity  (kips)  from  Tab.  7-1  or  7-2,  FM  5-34 

> 

Figure  Al.  "BRDGCLS"  program  sequence  of  events. 
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* 

Over  enters  maximum  span  length  (ft)  from  Tab.  7-1  or  7-2,  FM  5-34 

I 

User  enters  maximum  bracing  spacing  (ft)  from  Tab.  7-2.  FM  5-34* 

\ 

User  enters  dead  load  moment  (kip-ft)  from  Fig.  7-4,  FM  5-34 
User  enters  dead  load  shear  (kip)  from  Fig.  7-4,  FM  5-34 

I 

Program  computes/outputs  dead  load  moment  per  stringer,  live  load  moment  per 
stringer,  effective  number  of  stringers  per  lane  (N^),  and  effective  number 
of  stringers  per  lane  for  a  tvo-lane  bridge  (N«) 

I 

User  enters  class  of  wheeled  vehicle  from  Fig.  7-3.  FM  5-34 

\ 

User  enters  class  of  tracked  vehicle  from  Fig.  7-3,  FM  5-34 

\ 

Program  computes /outputs  dead  load  shear  per  stringer  and 
live  load  shear  per  stringer 


User  enters  class  of  wheeled  vehicle  from  Fig.  7-5.  FM  5-34 

I 

User  enters  class  of  tracked  vehicle  from  Fig.  7-5.  FM  5-34 


Program  computes /outputs  width  classification 

I 

User  enters  decking  classification  from  Fig.  7-7,  FM  5-34 

\ 

Program  computes /outputs 
Final  classifications 


♦Only  if  steel  stringers  are  used 


Figure  Al.  (Cont'd). 
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XEQ  "BRDGCLS 


BRIDGE  CLASS 

RECON 

ROAD  WIDTH(FT)-? 

23. 

RUN 

SPAN  LENGTH(FT)-? 

17. 

RUN 

STRINGERS: 

STR,  NUMBER-? 

9. 

RUN 

STEEL( Y/N) ? 

N 

RUN 

STR.  WIDTH(IN)-? 

8. 

RUN 

STR.  DEPTH(IN)-? 

18. 

RUN 

STR.  SPACING(IN)-? 

35. 

RUN 

DECK  THICK. (IN)-? 

6. 

RUN 

LAMINATED( Y/N) ? 

N 

RUN 

DECK  LAYERED( Y/N)? 

Y 

RUN 

#BRACES=? 

2. 

RUN 

CLASS: 

TAB. 7-1 ,FM5-34 : 
8.0X81.0 

M(KP-FT)-? 

86.40 

RUN 

V(KIP)-? 

14.40 

RUN 

L,M( FT)-? 

21.50 

RUN 

FIG, 7-4 ,FM5-34 . 

TBR,2  LN, 17 .FT: 
M.DL(KP-FT)-? 

37.36 

RUN 

V,DL(KIP)-? 

8.75 

RUN 

M.DL/STR-4.2 

M.LL/STR-82.2 

Nl-2.71 

N2-3.38 

FIG . 7-3 , FM5-34 : 

1 7 .FT.&223 .M, LL: 

CLS ,  WHEEL*? 

60.  RUN 

CLS,  TRACK*? 

40.  RUN 

V,DL/STR*1 .0 
V,LL/STR*13.4 
FIG.7-5.FM5-34 : 
17.FT.&52.V, LL: 

CLS,  WHEEL*? 


50. 

RUN 

CLS,  TRACK*? 

40. 

RUN 

WIDTH  CLS: 

1  WAY- 100. 

2  WAY- 30. 
FIG.7-7.FM5-34: 
DT-4.0&S.S-35. : 
CLASS-? 

12. 

RUN 

FINAL  CLASS: 
ADD  1.  BRACES 
1WY  WHEEL* 12 . 
2WY  WHEEL-12. 
1WY  TRACK-12. 
2WY  TRACK- 12. 
END  PROGRAM 


Figure  A2.  "BRDGCLS"  program  example  —  with  printer. 
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BRDGCLS 

l 


20 


I 


I 

20 

Figure  A3.  "BRDGCLS"  progran  label  wiring  diagraa. 
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Figure  A4.  "BRDGCLS”  program  —  detailed  flowchart. 


6 


ARCL  34  x  ARCL  33" 


Figure  A4.  (Cont'd). 
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Figure  A4.  (Cont'd). 


3i 


a 


w 


Figure  A4.  (Coat'd). 
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Figure  A4.  (Cont'd) 


LBL05 


Figure  A4.  (Cont'd). 
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"CLS,  TRACK  =  ?" 
STORE  IN  Rj3 


(496-500) 


FS?C  05 
1331-332) 


(333-334) 


STORE  R3J  IN  R34 


(335-336) 


STORE  R33  IN  R3S 


(337-338) 


(339-340) 


(341-342) 


LBL09 

STORE  48.06  IN  Ry 
*  STORE  32.035  IN  Rx 

(346-349) 

-  ■  -t  -  ~ ■ 

LBL  18 

SELECT  MAXIMUM 
CLASSIFICATION  FOR  ONE¬ 
WAY  TRAFFIC  BASED  ON 
ROADWAY  WIDTH  RESTRICTIONS 
(TABLE  7-6,  FM5-34) 

STORE  IN  R3J 


Figure  A4.  (Cont'd). 


(350-390) 


LBL  10 

"WIDTH  CLASS: 

"1" 


(391-395) 


Figure  A4  (Cont'd). 
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Figure  A4.  (Cont'd). 
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OULBL  "BRDGCLS" 
02  52 

03  XEQ  "*S" 

04tLBL  20 
05  XEQ  "*F" 
06  CF  09 

07  "BRIDGE  CLASS” 
08  XEQ  "*D" 
09  FIX  0 

10  "RECON: ” 

11  XEQ  "*D" 

12  30 

13  STO  24 

14  "ROAD  WIDTH(FT)" 

15  50 

16  ENTER t 

17  8 

18  XEQ  "*I" 
19  “SPAN  LENGTU(FT)" 

20  200 

21  ENTER t 

22  10 

23  XEQ  "*I" 
24  "STRINGERS:" 
25  XEQ  "*D" 
26  "STR,  NUMBER- 
27  25 
82  ENTER t 

29  2 

30  XEQ  "*I" 

31  "STEEL" 

32  XEQ  "*Y" 

33  FS?  10 

34  SF  00 

35  "STR.  WIDTH(IN)" 

36  20 

37  ENTER* 

38  4 

39  XEQ  "*I" 
40  "STR.  DEPTH(IN)" 

41  60 

42  ENTERt 

43  6 

44  XEQ  "*I” 
45  "STR.  FLANGE  THI" 

46  "t-CK( IN)" 

47  FIX  1 

48  2 

49  ENTERt 


50  .3 

51  FS?  00 

52  XEQ  ”*I" 

53  FIX  0 

54  FC?  00 

55  ISG  24 

56  STO  X 

57  "STR.  SPACING( IN" 

58  »“ 

59  100 

60  ENTERt 

61  10 

62  XEQ  “*I“ 
63  "DECK  THICK. (IN)" 

64  12 

65  ENTERt 

66  2 

67  XEQ  "*I" 
68  "LAMINATED” 

69  XEQ  "*Y" 

70  FS?  10 

71  SF  01 

72  FC?  01 

73  GTO  01 

74  "X  LAM." 

75  100 

76  ENTERt 

77  0 

78  XEQ  "*I" 

79  100 

80  / 

81  ST*  37 

82  DSE  24 

83  GTO  02 

84+LBL  01 
85  "DECK  LAYERED" 

86  XEQ  ”*Y" 

87  0 

88  FS?  10 

89  2 

90  ST-  37 

919LBL  02 

92  "#BRACES” 

93  20 

94  ENTERt 

95  0 

9'  XEQ  "*I" 


974LBL  00 

98  39.051 

99  XEQ  "*C" 

100  "CLASS:" 

101  XEQ  "*D" 

102  39 

103  STO  24 

104  "TAB.7-" 

105  FS?  00 

106  "1-2" 

107  FC?  00 

108  ”1-1” 

10'?  "|-,FM5-34 : " 

110  XEQ  "*D" 

111  FIX  l 

112  CLA 

113  RCL  33 

114  RCL  34 

115  FC?  00 

116  XOY 

117  ARCL  X 

118  "hX" 

119  ARCL  Y 

120  FIX  2 

121  FS?  00 

122  "hX" 

123  FS?  00 

124  ARCL  35 
12  5 

126  XEQ  "*D" 
127  "M(KP-FT) " 

128  3100 

129  ENTERt 

130  3 

131XEQ  ”*I" 

132  ”V(KIP) " 

133  600 

134  ENTERt 

135  3 

136  XEQ  "*I" 
137  "L,M(FT)” 

138  135 

139  ENTERt 

140  9 

141  XEQ  "*I” 

142  FC?  00 

143  GTO  03 
144  ”S,B(FT) " 

145  26 


Figure  A5.  "BRDGCLS"  progron  listing. 
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146  ENTERt 

192tLBL  17 

147  6 

193  RCL  31 

148  XEQ  ”*I” 

194  RCL  42 

195  / 

149tLBL  03 

196  XEQ  "*R" 

150  43 

197  1 

151  STO  24 
. 7-4 , FM5-34  :  " 

198  + 

153  XEQ  "*D" 

199tLBL  14 

154  FS?  00 

200  RCL  38 

155  "STL," 

201  - 

156  FC?  00 

202  X<=0? 

157  "TBR," 

203  GTO  15 

158  RCL  30 

204  STO  42 

159  18 

160  X<«Y? 

205  SF  04 

161  SF  02 

206tLBL  15 

162  FS?  02 

207  FIX  1 

163  "1-2" 

208  RCL  43 

164  X>Y? 

209  RCL  32 

165  "1-1" 

210  / 

166  "F  LN," 

211  STO  43 

167  FIX  0 

212  "M, DL/STR” 

168  ARCL  31 

213  XEQ  "*0" 

169  "F  FT : ” 

214  RCL  39 

170  XEQ  "*D" 

215  RCL  43 

171  FIX  2 

216  - 

M, DL(KP-FT) " 

217  1 

173  1200 

218  1.15 

174  ENTERt 

219  FS?  00 

175  3 

220  XOY 

176  XEQ  "*I" 

221  RDN 

"V,DL(KIP)" 

222  / 

178  65 

223  RCL  41 

179  ENTERt 

224  RCL  31 

180  1 

225  X<«Y? 

181  XEQ  "*I" 

226  STO  Y 

182  FS?  00 

227  / 

183  GTO  17 

228  * 

184  RCL  33 

229  STO  43 

185  2 

230  "M.LL/STR" 

186  * 

231  XEQ  "*0" 

187  RCL  34 

232  5 

188  X<-Y? 

233  RCL  36 

189  GTO  15 

234  12 

190  3 

235  / 

191  GTO  14 

236  / 

237  1 

238  + 

239  STO  45 

240  FIX  2 

241  "Nl" 

242  XEQ  “*0‘ 

243  RCL  32 

244  .375 

245  * 

246  STO  46 

247  "N2" 

248  XEQ  "*0" 

249  48 

250  STO  24 

251  RCL  46 

252  RCL  45 


253 

X>Y 

’? 

254 

SF 

03 

FIG. 7- 

3 , FM5-34 

256 

XEQ 

"*D 

257 

FIX 

0 

2  58tLBL 

04 

259 

RCL 

43 

260 

* 

261 

STO 

47 

262 

CLA 

26  3 

ARCI 

L  31 

264 

"F  FT . 6 " 

265 

ARCI 

L  47 

266 

"FM 

,  LL : ' 

267 

XEQ 

19 

268 

FS?C  05 

269 

GTO 

05 

270 

FC? 

02 

271 

GTO 

05 

272 

RCL 

48 

273 

STO 

50 

274 

RCL 

49 

275 

STO 

51 

276 

FC? 

03 

277 

GTO 

05 

278 

SF  05 

279 

RCL 

46 

280 

GTO 

04 

281t 

LBL 

05 

282 

RCL 

44 

283 

RCL 

32 

284 

/ 

285 

FIX 

1 

286 

STO 

44 

Figure  A5.  (Cont'd). 
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295 


287  "V,DL/STRh 

334  GTO  09 

288  XEQ  "*0" 

335  RCL  32 

289  RCL  40 

336  STO  34 

290  RCL  44 

337  RCL  33 

291  - 

338  STO  35 

292  STO  44 

339  FC?  03 

293  "V.LL/STR" 

340  GTO  09 

294  XEQ  "*0" 

341  FS?  00 

FIG.7-5,FM5-34 : “ 

342  GTO  09 

296  XEQ  "*D" 

343  SF  05 

297  32 

344  RCL  46 

298  STO  24 

345  GTO  07 

299  0 

300  STO  34 

3469LBL  09 

301  STO  35 

347  48.06 

302  FS?  00 

348  ENTERf 

303  GTO  06 

349  32.035 

304  RCL  45 

3509LBL  18 

3059LBL  0? 

351  RCL  IND  Y 

306  STO  Y 

352  RCL  IND  Y 

307  l 

353  X>Y? 

308  + 

354  XOY 

309  / 

355  STO  IND  T 

310  16 

356  RDN 

311  3 

357  RDN 

312  / 

358  ISG  Y 

313  * 

359  ISG  X 

314  RCL  44 

360  GTO  18 

315  * 

361  0 

316  GTO  08 

362  STO  32 

363  RCL  30 

317»LBL  06 

364  9 

318  2 

365  - 

319  RCL  44 

366  X<0? 

320  * 

367  GTO  10 

321  1.15 

368  12 

322  / 

369  STO  32 

370  RDN 

3239LBL  08 

371  2 

324  FIX  0 

372  - 

325  CLA 

373  X<0? 

326  ARCL  31 

374  GTO  10 

327  >FT.&" 

375  30 

328  ARCL  X 

376  STO  32 

329  ’>V,LL:" 

377  RDN 

330  XEQ  19 

378  2.16 

331  FSTC  05 

379  - 

332  GTO  09 

380  X<0? 

333  PC?  02 

381  GTO  10 

Figure  A5.  (Cont'd). 


389  100 

390  STO  32 

391*LBL  10 
392  RCL  32 
393  "WIDTH  CLS:” 

394  XEQ  ”*D" 

395  "1" 
3969LBL  11 

397  "I-  WAY" 

398  XEQ  "*0" 

399  FS?C  05 

400  GTO  12 

401  0 

402  STO  33 

403  FC?  02 

404  GTO  12 

405  "2" 


406 

SF 

05 

407 

30 

408 

STO 

33 

409 

RCL 

30 

410 

24 

411 

- 

412 

X<0? 

413 

GTO 

13 

414 

60 

415 

STO 

33 

416 

RDN 

417 

3 

418 

- 

419 

X<0? 

420 

GTO 

13 

421 

100 

422 

STO 

33 

4239LBL 

13 

424 

RCL 

33 

425 

GTO 

11 

39 


426»LBL  12 

427  "FIG. 7-7 , FM5-34 : " 

428  XEQ  "*D" 

429  “ DT* " 

430  FIX  1 

431  ARCL  37 

432  "h&S.S-" 

433  FIX  0 

434  ARCL  36 

435 

436  XEQ  "*D" 

437  "CLASS" 

438  34 

439  STO  24 

440  150 

441  ENTER t 

442  0 

443  XEQ  "*I“ 
444  "FINAL  CLASS: 

445  XEQ  "*D" 

446  FC?  04 

447  GTO  16 

448  "ADD- 

449  ARCL  42 
450  "h-  BRACES" 

451  XEQ  "*D" 

452»LBL  16 

453  RCL  34 

454  RCL  33 

455  X>Y? 

456  XOY 

457  STO  33 

458  RCL  34 

459  RCL  32 

460  X>Y? 

461  XOY 

462  STO  32 

463  RCL  48 

464  X>Y? 

465  XOY 
466  " 1WY  WHEEL" 

467  XEQ  ”*0" 

468  RCL  33 

469  RCL  50 

470  X>Y? 

471  XOY 


472  "2WY  WHEEL" 

473  XEQ  "*0" 

474  RCL  32 

475  RCL  49 

476  X>Y? 

477  XOY 
478  “ 1WY  TRACK" 

479  XEQ  "*0" 

480  RCL  33 

481  RCL  51 

482  X<Y? 

483  XOY 
484  ”2WY  TRACK" 

485  XEQ  "*0" 

486  XEQ  "*P" 

487  STOP 

488  GTO  20 

489»LBL  19 
490  XEQ  "*D" 
491  "CLS,  WHEEL" 

492  150 

493  ENTER t 

494  0 

495  XEQ  "*I" 
496  "CLS,  TRACK” 

497  150 

498  ENTER t 

499  0 

500  GTO  ”*I” 

501  "2/2/82" 
502  -END. 


Figure  A5.  (Cont'd) 
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Table  Al 

"BRDGCLS"  Program  Example  —  Without  Printer 


S£ej> 

Press 

Resulting  Display 

1 

XEO 

ALPHA 

BRDGCLS 

ALPHA 

BRIDGE  CLASS 

2 

R/S 

RECON : 

3 

R/S 

ROAD  WIDTH  (FT)  -  ? 

4 

23  R/S 

SPAN  LENGTH  (FT)  -  ? 

5 

17  R/S 

STRINGERS: 

6 

R/S 

STR,  NUMBER  -  ? 

7 

9  R/S 

STEEL  (Y/N)? 

8 

N  R/S 

STR.  WIDTH  (IN)  -  ? 

9 

8  R/S 

STR.  DEPTH  (IN)  -  ? 

10 

18  R/S 

STR.  SPACING  (IN)  * 

11 

35  R/S 

DECK  THICK.  (IN)  -  ? 

12 

6  R/S 

LAMINATED  (Y/N)? 

13 

N  R/S 

DECK  LAYERED  (Y/N)? 

14 

Y  R/S 

#  BRACES  -  ? 

15 

2  R/S 

CLASS: 

16 

R/S 

TAB.  7-1,  FM  5-34: 

17 

R/S 

8.0X18.0 

18 

R/S 

M(KP-FT)  -  ? 

19 

86.40  R/S 

V  (KIP)  »  ? 

20 

14.40  R/S 

L,  M  (FT)  -  ? 

21 

21.50  R/S 

FIG.  7-4,  FM  5-34: 

22 

R/S 

TBR,  2  LN,  17.  FT: 

23 

R/S 

M,  DL  (KP-FT)  -  ? 

24 

37.36  R/S 

V,  DL  (KIP)  -  ? 

25 

8.75  R/S 

M,  DL/STR  -  4.2 

26 

RZs 

M,  LL/STR*  82.2 

27 

R/s 

N1  -  2.71 

28 

R/s 

N2  -  3.38 

29 

R/s 

FIG.  7-3,  FM  5-34: 

30 

R/s 

17  FT.  &  223.  M,  LL: 

31 

R/S 

CLS,  WHEEL  -  ? 

32 

60  R/S 

aS,  TRACK  -  ? 

33 

40  R/S 

V,  DL/STR  -  1.0 

34 

R/S 

V,  LL/ STR  -  13.4 

35 

R/S 

FIG.  7-5,  FM  5-34: 

36 

R/s 

17  FT.  &  52.  V,  LL: 

37 

R/S 

as,  WHEEL  -  ? 

38 

50  R/S 

as,  TRACK  -  ? 

39 

40  R/S 

WIDTH  CLS: 

40 

R/S 

1  WAY  -  100 

41 

R/S 

2  WAY  -  30 

42 

R/S 

FIG.  7-7,  FM  5-34: 

43 

R/S 

DT  -  4.0  &  S.S  -  35. 

44 

R/S 

CLASS  -  ? 

41 


Table  A1  (Cont'd) 


Step 

Press 

45 

12  R/S 

46 

R/S 

47 

R/S 

48 

R/S 

49 

R/S 

50 

R/S 

51 

R/S 

Resulting  Display 

FINAL  CLASS: 

ADD  1.  BRACES 

1  WY  WHEEL  -  12. 

2  WY  WHEEL  =  12. 

1  WY  TRACK  =  12. 

2  WY  TRACK  -  12. 
END  PROGRAM 
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Table  A2 

"BRDGCLS"  Program  —  Special  Register  Uses 


Register 

Number 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


Register  Contents 

Roadway  width  in  feet 

Span  length  in  feet 

Number  of  stringers 
(or)  One-way  class,  wheel,  V 
(or)  1-way  width  class 

Stringer  width  in  inches 
(or)  One-way  class,  track,  V 
(or)  Two-way  width  class 

Stringer  depth  in  inches 
(or)  Two-way  class,  wheel,  V 
(or)  Deck  class 

Stringer  flange  thickness  in  inches* 

(or)  Two-way  class,  track,  V 

Stringer  spacing  in  inches 

Deck  thickness  in  inches 
(or)  Effective  deck  thickness  in  inches 

Percent  laminated 
(or)  Number  of  braces 

Moment  capacity  in  kip-feet 

Shear  capacity  in  kips 

Maximum  span  length  in  feet 

Maximum  bracing  spacing  in  feet* 

(or)  Additional  braces  required 

Dead  load  moment  in  kip-feet 
(or)  Dead  load  moment/str inger  in  kip-feet 
(or)  Live  load  moment/str inger  in  kip-feet 

Dead  load  shear  in  kip-feet 
(or)  Dead  load  shear/ stringer  in  kip-feet 
(or)  Live  load  shear/ stringer  in  kip-feet 

Effective  number  of  stringers  per  lane 

Effective  number  of  stringers  per  lane  for  a  two- lane  bridge 

Live  load  moment/ lane  in  kip-feet/ lane 

One-way  class,  wheel,  M 

One-way  class,  track,  M 

Two-way  class,  track,  M 

Two-way  class,  track,  M 


*(Only  if  steel  stringers  are  used) 
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Table  A3 


Label 

BRDGCLS 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 


"BRDGCLS"  Program  —  Functions,  by  Label 


Purpose 

Marks  beginning  of  program;  checks  size  allocation 

Clears  registers;  displays  classification  of  stringer  and 
table  in  which  the  stringer  properties  are  found;  inputs 
moment  capacity,  shear  capacity,  maximum  span  length  and 
maximum  bracing  spacing  (for  steel  stringers) 

Determines  if  deck  is  layered 

Inputs  number  of  braces  needed 

Displays  "Fig.  7-4,  FM  5-34:",  type  of  stringer,  number 
of  lanes  and  span  length;  outputs  dead  load  moment  and 
dead  load  shear 

Displays  length  of  span  and  live  load  bending  moment 

Computes /outputs  dead  load  shear  per  stringer  and  live 
load  shear  per  stringer;  displays  "Fig.  7-5,  FM  5-34" 

Determines  live  load  shear  per  lane  for  steel  stringers 

Determines  live  load  shear  per  lane  for  timber  stringers 

Displays  length  of  span  and  live  load  shear  per  lane 

Intermediate  calculation 

Displays  "WIDTH  CLS:" 

Computes /output 8  maximum  classification  for  two-way  traffic 
based  on  roadway  width 

Displays  "Fig.  7-7,  FM  5-34:",  decking  thickness,  stringer 
spacing,  "FINAL  CLASS:",  and  "ADD  BRACES:";  inputs  decking 
class 

Intermediate  calculation 

Decides  if  additional  braces  are  needed 

Computes /outputs  dead  load  moment  per  stringer,  live  load 
moment  per  stringer,  effective  number  of  stringers  per  lane 
and  effective  number  of  stringers  per  lane  for  a  two-lane 
bridge;  displays  "Fig.  7-3,  FM  5-34:" 
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Table  A3  (Cont'd) 


Lftbel 

16 

17 


Purpose 

Computes /out puts  final  classifications  for  one-way  wheeled, 
two-way  wheeled,  one-way  tracked,  and  two-way  tracked  vehicles 

Computes  number  of  braces  needed  when  steel  stringers  are 
used 


18  Determines  maximum  classification  for  one-way  traffic  based 
on  roadway  width 

19  Outputs  wheel  and  track  classification 

20  Inputs  road  width,  span  length,  stringer  number,  stringer 
width,  stringer  depth,  stringer  flange  thickness,  stringer 
spacing,  deck  thickness,  and  percent  laminated 
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APPENDIX  B: 

"CPM"  PROGRAM  DETAILS 


This  appendix  provides  detailed  information  about  the  "CPM"  program. 
Figure  Bl  shows  the  typical  sequence  of  events  and  the  options  that  a  user 
encounters  when  executing  this  program.  Table  Bl  is  a  sample  problem  showing 
the  specific  steps  that  must  be  followed  when  one  uses  the  HP-41  calculator 
without  a  printer  attached.  In  this  example,  the  program  determines  the  early 
start,  early  finish,  late  start,  late  finish  and  total  float  for  a  network 
consisting  of  five  activities. 

Duration  and  preceding  activity  numbers  are  input  for  each  activity. 

Once  this  information  is  entered,  numbers  for  the  ending  activities  and  start¬ 
ing  activity  are  input.  In  steps  28  through  67  of  Table  Bl,  the  user  has  to 
press  the  R/S  key  to  restart  the  program  after  each  message  has  been 
displayed.  If  a  printer  were  attached  and  in  the  "NORM"  printer  mode,  the 
program  would  advance  automatically.  The  results  output  by  the  printer  are 
shown  in  boxes,  each  containing  the  results  for  one  activity  (Figure  B2).  The 
printout  can  be  cut  apart  to  form  a  network.  Preceding  activities  are  listed 
in  the  upper  left  hand  corner  of  the  diagram  so  the  user  can  place  the  activi¬ 
ties  in  the  correct  order.  A  row  of  asterisks  along  the  bottom  of  a  box  indi¬ 
cates  that  the  activity  lies  on  the  critical  path. 

Abbreviations  used  in  "CPM"  are: 


Svmbol 

Meaning 

ACT 

Activity 

CPM 

Critical  path  method 

EF 

Early  finish 

END 

Ending 

ES 

Early  start 

LF 

Late  finish 

LS 

Late  start 

# 

Number 

PRED 

Preceding 

TF 

Total  float 

(Y/N) 

(Yes/No) 

Five  sets  of  operating  limits  for  variable  input  are  in  the  program: 
Variable  Minimum  Maximum 


Total  number  of  activities 

1 

98 

Activity  identification  numbers 

1* 

98 

Duration 

0 

1000 

Preceding  activities  identification  numbers 

1* 

98 

Starting  activity  number 

1 

98 

*0  is  used  to  exit  from  the  variable. 
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The  limits  set  for  preceding  activity  identification  numbers  show  that 
any  activity  between  0  and  98  can  be  entered.  However,  a  single  activity  must 
have  no  more  than  five  preceding  and  25  ending  activities;  otherwise,  the 
registers  will  be  disrupted.  "CPM"  is  not  programmed  to  check  these  two  lim¬ 
its;  the  user  must  observe  them  himself.  Critical  assumptions  and  formulas 
are  as  follows: 

1.  Early  start  computation:  ES  “  ES  (preceding  activity)  +  Duration 
(preceding  activity).  Note:  When  more  than  one  activity  comes  to  an  activity 
node,  the  largest  value  for  ES  is  used. 

2.  Early  finish  computation:  EF  B  ES  +  Duration. 

3.  Late  finish  computation:  LF  (preceding  activity)  K  LF  (current 
activity)  -  Duration.  Note:  Starting  with  the  ending  activities  of  the  net¬ 
work,  the  largest  EF  is  found  for  all  activities.  This  number  is  set  equal  to 
the  LF  for  each  "end  activity."  Working  backwards  using  the  formula  for  LF, 
the  other  LFs  are  determined  accordingly. 

4.  Late  start  computation:  LS  ■  LF-Duration. 

5.  Total  float  computation:  TF  ■  LS-ES . 

"CPM”  uses  registers  30  through  [(2XACT#)  +43]  to  store  the  values 
described  in  Table  B2.  The  program  uses  two  general  purpose  flags.  Flag  01 
is  set  if  there  are  no  more  ending  activities,  and  flag  15  is  set  if  the  total 
float  equals  zero. 

Table  B3  describes  the  general  function  of  each  part  of  the  program,  by 
label.  Figure  B3  is  a  label  wiring  diagram  showing  how  the  different  parts  of 
the  program  relate  to  esc?  other.  A  circular  loop  on  the  diagram  indicates  a 
return  to  the  same  label.  A  two-headed  arrow  pointing  to  and  from  a  subrou¬ 
tine  indicates  that  the  program  executes  it  as  a  local  subroutine  then  returns 
to  the  main  program.  Global  subroutines,  used  by  all  the  major  application 
programs  on  the  M1LENG1/UTIL  module,  are  not  shown  on  the  wiring  diagram,  but 
are  described  separately  in  Appendix  G. 

Figure  B4  is  a  detailed  flowchart  of  the  "CPM"  program,  and  Figure  B5 
lists  the  program  steps. 
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User  executes  "CPM" 

I 

User  enters  total  number  of  activities 

i 

User  enters  activity  number,  duration,  and  preceding 
activities  for  each  activity 

\ 

User  enters  ending  activities 
User  enters  starting  activity  number 

I 

Program  computes  and  outputs 
early  start,  early  finish,  late  start,  late 


finish,  total  float,  and  critical  path 


Figure  Bl .  "CPM"  program  sequence  of  events. 


48 


XEQ  "CMC 

TOTAL  #  ACTIVITIES-? 


5. 

RUN 

ACTIVITY#-? 

1. 

RUN 

DURATION-? 

15. 

RUN 

PRED.  ACT-? 

0. 

RUN 

ACTIVITY#-? 

2. 

RUN 

DURATION-? 

20. 

RUN 

PRED.  ACT-? 

1. 

RUN 

PRED.  ACT-? 

0. 

RUN 

ACTIVITY#-? 

3. 

RUN 

DURATION-? 

16. 

RUN 

PRED.  ACT-? 

1. 

RUN 

PRED.  ACT-? 

0. 

RUN 

ACTIVITY#-? 

4. 

RUN 

DURATION-? 

18. 

RUN 

PRED.  ACT-? 

3. 

RUN 

PRED.  ACT-? 

0. 

RUN 

ACTIVITY#-? 

5. 

RUN 

DURATION-? 

20. 

RUN 

PRED.  ACT-? 

2. 

RUN 

PRED.  ACT-? 

4. 

RUN 

PRED.  ACT-? 

0. 

RUN 

ACTIVITY#-? 

0. 

RUN 

ANY  CHANGES(Y/N)? 

N 

RUN 

Simple  Network 


#2 


TF=8. 


Cut  8  Paste  Solution 


/  8.  ll.  15./ 
/  15.  /. 

/  i.  ******  15./ 


/  15. 


13.  33./ 

/  18.  / 

/  15.  ******  33./ 


TF=8. 


ENTER  ENDING  ACTIVITIES 
END  ACT.#*? 

5. 

END  ACT.#-? 

0. 

START  ACT.#-? 

1. 

SEE  KEY( Y/N)? 

Y 


/  33.  14.  51./ 

/  18.  / 

/  33.  ******  51./ 


RUN 

RUN 

RUN 

RUN 


2. 

4. 


TF=8. 


/  si.  is.  n.t 
/  28.  / 

/  si,  .*.*..  71./ 


/£$  ACT#  EF/ 

/  WMTtON  / 
/IS  IF/ 


Figure  B2.  "CPM"  pro gran  example  —  with  printer. 
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/  Ijfl 


Figure  B4.  "CPM"  program  —  detailed  flowchart 


Figure  B4.  (Cont'd). 
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Figure  B4.  (Cont'd) 


Figure  B4.  (Cont'd) 


Figure  B4.  (Cont'd). 
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Figure  B4.  (Cont'd). 
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Figure  B4.  (Cont'd). 


Figure  B4.  (Cont'd). 
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Figure  B4.  (Cont'd). 
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OULBL  "CPM 
02  CI.A 
03  CLRG 
04  CF  01 
05  41 
06  STO  24 

07  "TOTAL  #ACTIVITI" 
08  "f-ES" 

09  98 

10  ENTER t 

11  1 

12  XEQ  "*I" 

13  2 

14  * 

15  43 

16  + 

17  XKQ  "*S" 

189LBL  00 

19  33.040 

20  XEQ  "*C” 

21  31 

22  STO  24 

23  0 

24  "ACT IV ITT//" 

25  98 

26  ENTER t 

27  0 

28  XEQ  "*!' 

29  X=0? 

30  GTO  08 
31  "DURATION" 

32  1000 

33  ENTER t 

34  0 

35  XEQ  "*I' 

36  33.037 

37  STO  30 

38+LBL  01 
39  0 

40  "PRED.  ACT' 

41  98 

42  ENTER t 

43  0 

44  XEQ  "*I 

45  X-0? 

46  GTO  04 
47  STO  IND  30 

48  ISG  30 

49  GTO  01 


509LBL  04 

51  RCL  31 

52  2 

53  * 

54  40 

55  + 

56  STO  30 

57  RCL  32 
58  STO  IND  30 

59  1 

60  ST+  30 

61  0 

62  STO  IND  30 

63  33.037 

64  STO  31 

65  1 

66  STO  32 

679LBL  05 
68  RCL  IND  31 

69  X-0? 

70  GTO  00 

71  RCL  32 

72  * 

73  ST+  IND  30 

74  100 

75  ST*  32 

76  ISG  31 

77  GTO  05 

789LBL  08 
79  0 

80  "ANY  CHANGES" 

81  XEQ  "*Y” 

82  FS?  10 

83  GTO  00 

849LBL  09 
85  1 

85  STO  30 

87  40.036 

88  STO  32 

89  37.040 

90  XEQ  "*C" 

91  31.035 

92  STO  36 

93  TONE  8 

94  TONE  9 

95  "ENTER  ENDING  A” 
96  "KCTIVITIES” 
97  AVIEW 


989I.BL  10 
99  0 

100  TONE  ') 

L 0 1  "END  ACT.#-?" 

102  PROMPT 

103  X-0? 


104 

GTO 

1 1 

105 

RCL 

30 

106 

* 

107  ST+  IND  32 

108 

100 

109 

ST/ 

30 

110 

ISG 

36 

111 

GTO 

10 

112 

31.035 

113 

STO 

36 

114 

1 

115 

STO 

30 

116 

DSE 

32 

117 

GTO 

10 

118»LBL 

11 

119 

43 

120 

STO 

31 

121 

1000 

122 

ST/ 

41 

123 

1 

124 

ST+ 

41 

1259LBL 

12 

126 

0 

127 

STO 

35 

128 

STO 

30 

129  RCL 

,  IND  31 

130 

STO 

32 

131 

RCL 

31 

132 

1 

133 

- 

134  RCL  IND  X 


1359LBL  14 

136  100 

137  ST/  32 

138  RCL  30 

139  RCL  32 

140  FRC 

141  X=0? 

142  GTO  16 

143  ST-  32 

144  200 

145  * 

146  40 

147  + 


Figure  B5.  "CPM"  program  listing. 
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148  RCL  IND  X 


149 

INT 

150 

STO 

33 

151 

1000 

152 

ST/ 

33 

153 

RCL 

33 

154 

FRC 

155 

1000 

156 

* 

157 

STO 

34 

158 

RCL 

33 

159 

INT 

160 

ST+ 

34 

161 

RCL 

35 

162 

RCL 

34 

163 

X>Y? 

164 

GTO 

15 

165 

GTO 

14 

1669 LBL 

15 

167 

STO 

35 

168 

GTO 

14 

1699LBL 

16 

170 

1 

171 

ST- 

31 

172 

RCL 

35 

173 

1000 

174 

* 

175  ST+  IND  31 

176 

3 

177 

ST+ 

31 

178 

ISG 

41 

179 

GTO 

12 

180 

RCL 

41 

181 

i 

182 

- 

183 

INT 

184 

STO 

41 

185 

0 

186 

STO 

32 

187 

42.1 

30002 

188 

STO 

31 

189 

RCL 

41 

190 

2 

191 

* 

192 

40 

193 

+ 

194 

1000 

195 

/ 

196 

ST+ 

31 

1979LBL  99 
198  999000000 
199  ST+  IND  31 

200  ISG  31 

201  GTO  99 

2029LBL  17 

203  40.036 

204  STO  33 

2059LBL  18 
206  RCL  IND  33 

207  STO  30 

208  31.035 

209  STO  34 

2109LBL  19 

211  RCL  30 

212  INT 

213  X#0? 

214  GTO  a 

215  FS?C  01 
n6  GTO  21 

217  SF  01 

218  GTO  17 

2199LBL  a 

220  ST-  30 

22 1  2 
222  * 

223  40 

224  + 

225  FS?  01 

226  GTO  b 

227  999000000 

228  ST-  IND  Y 
229  RDN 

230  RCL  IND  X 

231  INT 

232  1000 

233  / 

234  STO  31 

235  FRC 

236  ST-  31 

237  1000 

238  * 

239  STO  35 

240  RCL  31 

241  INT 

242  RCL  35 

243  + 


244  RCL  32 

245  X>Y? 

246  GTO  20 

247  XOY 

248  STO  32 

2499LBL  20 

250  100 

251  ST*  30 

252  ISG  34 

253  GTO  19 

254  DSE  33 

255  GTO  18 

256+LBL  b 

257  RCL  32 

258  1000000 

259  * 

260  ST+  IND  Y 
261  100 

262  ST*  30 

263  ISG  34 

264  GTO  19 

265  DSE  33 

266  GTO  18 

2674LBL  21 

268  RCL  41 

269  2 

270  * 

271  41.04202 

272  + 

273  STO  33 

2749LBL  22 
275  RCL  IND  33 

276  X-0? 

277  GTO  24 

278  STO  34 

279  RCL  33 

280  1 
281  - 

282  RCL  IND  X 

283  STO  30 

284  1000 

285  ST/  30 

286  RCL  30 

287  FRC 

288  1000 

289  * 

290  CHS 


Figure  B5.  (Cont'd) 


2 91  STO  31 

292  1000 

293  ST/  30 

294  RCL  30 
293  I NT 
296  ST+  31 

2979LBL  23 

298  100 

299  ST/  34 

300  RCL  34 

301  FRC 

302  X-0? 

303  GTO  24 

304  ST-  34 

3059LBL  98 

306  200 

307  * 

308  40 

309  + 

310  STO  35 
311  RCL  IND  35 

312  1000000 

313  / 

314  INT 

315  RCL  31 

316  X>Y? 

317  GTO  23 

318  STO  32 
319  RCL  IND  35 

320  1000000 

321  / 

322  FRC 

323  RCL  32 

324  + 

325  1000000 

326  * 

327  STO  IND  35 
328  GTO  23 

3299LBL  24 

330  DSE  33 

331  GTO  22 

332+LBL  "CPMPR" 

333  40 

334  STO  24 


335 


START 

ACT.iT 

382 

KCI.  33 

336 

98 

383 

RCL  36 

337 

ENTER f 

384 

- 

338 

1 

385 

STO  39 

339 

XEQ  "*I“ 

386  RCL  IND 

340 

2 

387 

STO  34 

341 

* 

388 

100 

342 

40 

389 

ST/  34 

343 

+ 

390 

FC?  55 

344 

STO  30 

391 

GTO  41 

345 

1 

392 

14 

346 

+ 

393 

STO  41 

347 

STO  31 

394 

XEQ  50 

348 

FC?  55 

395 

CLA 

349 

GTO  30 

396 

”TF=" 

350  1 

'SEE  KEY" 

397 

ACA 

351 

XEQ  ”*Y" 

398 

CLA 

352 

FS?  10 

399 

RCL  39 

353 

XEQ  49 

400 

RCL  37 

354 

PRBUF 

401 

- 

402 

CLA 

3554LBL  30 

403 

ARCL  X 

356 

CF  15 

404 

ACA 

357 

FS?  55 

405 

CLA 

358 

PRBUF 

406 

X-0? 

359  RCL  IND  30 

407 

SF  15 

360 

X-0? 

408 

FIX  3 

361 

GTO  45 

409 

PRBUF 

362 

INT 

410 

3 

363 

1000 

411 

STO  41 

364 

/ 

412 

XEQ  50 

365 

STO  33 

413 

'• _ 

366 

FRC 

414 

ACA 

367 

ST-  33 

415 

ACA 

368 

STO  36 

416 

ACA 

369 

1000 

417 

PRBUF 

370 

ST/  33 

418 

2 

371 

RCL  33 

419 

STO  41 

372 

FRC 

420 

XEQ  50 

373 

ST-  33 

421 

"/" 

374 

STO  37 

422 

ACA 

375 

1000 

423 

1 

376 

ST*  36 

424 

STO  41 

377 

ST*  37 

425 

RCL  37 

378 

RCL  36 

426 

ACX 

379 

RCL  37 

427 

XEQ  54 

380 

+ 

428 

-1 

381 

STO  38 

429 

STO  41 

Figure  B5.  (Cont'd). 
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430  RCL  40 

431  XEQ  54 

432  35 

433  ACC HR 

434  CLA 

435  ARCL  40 

436  ACA 

437  2 

438  STO  41 

439  RCL  38 

440  XEQ  54 

441  RCL  38 

442  ACX 

443  CLA 

444  "/" 

445  ACA 

446  PRBUF 

447  1 

448  STO  41 

449  XEQ  50 

450  ACA 

451  6 

452  STO  41 

453  RCL  36 

454  XEQ  54 

455  RCL  36 

456  ACX 

457  6 

458  SKPCHR 

459  ACA 

460  PRBUF 


461+LBL  33 

462  2 

463  SKPCHR 

464  ACA 

465  0 

466  STO  41 

467  RCL  39 

468  ACX 

469  XEQ  54 

470  FS?  15 

471  GTO  35 

472  7 

473  SKPCHR 


4746LBL  34 

475 

RCL  33 

476  XEQ  54 

477 

RCL  33 

478 

ACX 

479 

ACA 

480 

PRBUF 

481 

GTO  36 

4826LBL  35 

483 

1 

484 

SKPCHR 

485 

CLA 

486 

"******•• 

487 

ACA 

488 

CLA 

489 

mr 

490 

GTO  34 

4919LBL  36 

492 

CLA 

493 

1 

494 

SKPCHR 

495 

*• 

496 

ACA 

497 

ACA 

498 

ACA 

499 

PRBUF 

500 

1 

501 

ST+  40 

502 

2 

503 

ST+  30 

504 

ST+  31 

505 

GTO  30 

5069LBL  41 

507 

RCL  40 

508 

FIX  0 

509 

"ACT#" 

510  XEQ  "*0" 

511 

RCL  36 

512  "DURATION" 

513 

XEQ  "*0" 

514  RCL  IND  31 

515 

STO  34 

516 

X#0? 

517 

XEQ 

44 

518 

RCL 

37 

519 

"ES' 

it 

520 

XEQ 

-*o 

521 

RCL 

38 

522 

"EF 

523 

XEQ 

"*0 

524 

RCL 

39 

525 

"LS' 

526 

XEQ 

"*0' 

527 

RCL 

33 

528 

”LF' 

• 

529 

XEQ 

-*0' 

530 

RCL 

39 

531 

RCL 

37 

532 

- 

533 

"TF* 

534 

XEQ 

"*0’ 

535 

1 

536 

ST+ 

40 

537 

2 

538 

ST+ 

30 

539 

ST+ 

31 

540 

GTO 

30 

5419LBL 

44 

542 

100 

543 

ST/ 

34 

544 

RCL 

34 

545 

X-0? 

546 

RTN 

547 

FRC 

548 

ST- 

34 

549 

100 

550 

* 

551  "PRED. 

ACT" 

552 

XEQ 

”*0" 

553 

GTO 

44 

5549LBL 

45 

555 

XEQ 

”*p" 

556 

FIX 

4 

557 

STOP 

558  GTO  ”CPM" 


Figure  B5.  (Cont'd) 


559fLBL  49 

608  ACA 

652  GTO  56 

560  CLA 

609  ACA 

653  2 

561  6 

610  ACA 

654  GTO  57 

562  SKPCHR 

611  PRBUF 

563  " - M 

612  CLA 

655#LBL  55 

564  ACA 

613  RTN 

656  0 

565  ACA 

657  GTO  57 

566  ACA 

614#LBL  50 

567  PRBUF 

615  FIX  3 

658#LBL  56 

568  5 

616  RCL  34 

659  1 

569  SKPCHR 

617  FRC 

570  "/ES" 

618  ST-  34 

660# LBL  57 

571  ACA 

619  100 

661  RCL  41 

572  2 

620  ST/  34 

662  + 

573  SKPCHR 

621  * 

663  SKPCHR 

574  "ACT#" 

622  FIX  0 

664  RTN 

575  ACA 

623  X-0? 

665  "15/3/82 

576  3 

624  GTO  51 

666  .END. 

577  SKPCHR 

625  CLA 

578  "EF/“ 

626  ARCL  X 

579  ACA 

627  ACA 

580  PRBUF 

628  CLA 

581  4 

629  "/" 

582  SKPCHR 

630  10 

583  "/•• 

631  X<«Y? 

584  ACA 

632  GTO  52 

585  4 

633  1 

586  SKPCHR 

634  GTO  53 

587  "DU RAT I" 

588  ACA 

635# LBL  51 

589  "ON" 

636  3 

590  ACA 

637  GTO  53 

591  4 

592  SKPCHR 

638#LBL  52 

593 

639  0 

594  ACA 

595  PRBUF 

6409LBL  53 

596  3 

641  RCL  41 

597  SKPCHR 

642  + 

598  "/LS" 

643  SKPCHR 

599  ACA 

644  RTN 

600  11 

601  SKPCHR 

654#LBL  54 

602  ”LF/" 

646  100 

603  ACA 

647  X<«Y? 

604  PRBUF 

648  GTO  55 

605  l 

649  RDN 

606  SKPCHR 

650  10 

607  " - " 

651  X<-Y? 

Figure  B5.  (Cont'd). 
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Table  B1 


"CPM"  Program  Example  —  Without  Printer 


Step 

Press 

Resulting  Display 

1 

XEO 

ALPHA 

CPM 

ALPHA 

TOTAL  #  ACTIVITIES  “  ? 

2 

5  R/S 

ACTIVITY  #  -  ? 

3 

1  R /S 

DURATION  -  ? 

4 

15  R/S 

PRED.  ACT  -  ? 

5 

0  R/S 

ACTIVITY  #  -  ? 

6 

2  R/S 

DURATION  =  ? 

7 

20  R/S 

PRED.  ACT  -  ? 

8 

1  R/S 

PRED.  ACT  -  ? 

9 

0  R/S 

ACTIVITY  #  -  ? 

10 

3  R/S 

DURATION  **  7 

11 

18  R/S 

PRED.  ACT  -  ? 

12 

1  R/S 

PRED.  ACT  -  ? 

13 

0  R/S 

ACTIVITY  #  **  ? 

14 

4  R/S 

DURATION  -  ? 

15 

18  R/S 

PRED.  ACT  -  ? 

16 

3  R/S 

PRED.  ACT  -  ? 

17 

0  R/S 

ACTIVITY  *  -  7 

18 

5  R/S 

DURATION  »  7 

19 

20  R/S 

PRED.  ACT  *  7 

20 

2  R/S 

FRED.  ACT  -  7 

21 

4  R/S 

PRED.  ACT  -  7 

22 

0  R/S 

ACTIVITY  #  -  7 

23 

0  R/S 

ANY  CHANGES  (Y/N)7 

24 

N  R/S 

ENTER  ENDING  ACTIVITIES 
END  ACT.  #  -  7 

25 

5  R/S 

END  ACT.  #  -  7 

26 

C  R/S 

START  ACT.  #  -  7 

27 

1  R/l 

ACT  #  -  1. 

28 

R/S 

DURATION  »  15. 

29 

R/S 

ES  •=  0. 

30 

R/S 

EF  -  15. 

31 

R/S 

LS  =  0. 

32 

R/S 

LF  -  15. 

33 

R/S 

TF  ■  0 

34 

R/S 

ACT  #  -  2. 

35 

R/S 

DURATION  -  20. 

36 

R/S 

PRED.  ACT  -  1. 

37 

R/S 

ES  -  15. 

38 

R/S 

EF  -  35. 

39 

R/S 

LS  -  31. 

40 

R/S 

LF  -  51. 

41 

R/S 

TF  -  16. 

42 

R/S 

ACT  #  -  3. 

43 

R/S 

DURATION  -  18. 
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Table  Bl  (Cont'd) 


Step 

Press 

44 

R/S 

45 

m 

46 

R/S 

47 

R/i 

48 

R/S 

49 

m 

50 

m 

51 

R/S 

52 

us 

53 

R/S 

54 

R/S 

55 

R/S 

56 

R/S 

57 

Us 

58 

R/S 

59 

R/S 

60 

R/S 

61 

R/S 

62 

R/S 

63 

R/S 

64 

R/S 

65 

R/S 

66 

R/S 

67 

R/S 

Resulting  Display 

PRED.  ACT  =  1. 

ES  =  15. 

EF  =  33. 

LS  =  15. 

LF  =  33. 

TF  =  0. 

ACT  #  =  4. 

DURATION  =18. 

PRED.  ACT  =  3. 

ES  =  33. 

EF  =  51. 

LS  -  33. 

LF  -  51. 

TF  =  0. 

ACT  *  =  5. 

DURATION  =  20. 

PRED.  ACT  =  2. 

PRED.  ACT  =  4. 

ES  =  51. 

EF  =  71. 

LS  =  51. 

LF  =  71. 

TF  =  0. 

END  PROGRAM 
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Table  B2 


"CPM"  Program  —  Special  Register  Uses 


Register 

Number 


30 

31 

32 


33-37 


30 

31 

32 

(ACT  #  x  2)+40 

32 

(ACT  #  x  2)+41 

30 

32 

36 


Register  Contents 

LBL  00  * 

Loop  control  value  and  indirect  storage  for 
preceding  activities 

Activity  number 

Duration  of  activity 

LBL  01 

Preceding  activities 

LBL  04 

Coded  activity  register  value  for  activity 
durations  (or)  coded  activity  register  value  for 
preceding  activities 

Loop  control  value  for  preceding  activities 
1 

Duration  of  activity 

LBL  05 

Preceding  activities  storage  factor 
Preceding  activities  for  one  activity 

LBL  09 

1 

Loop  control  value  for  ending  activities 
Loop  control  value  for  ending  activities 


*See  Table  B3  for  description  of  labels. 


i 
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Table  B2  (Cont'd) 


Register 

Number 

30 
36 

37-40 

31 

41 

30 

32 
35 

32 

33 

34 

35 

31 

41 

(ACT  #  x  2)+40 


Ending  activity  values 

LBL  11 


Coded  activity  register  value  for  activity 
number  1 

Loop  control  value 

LBL  12 


0 

Preceding  activities 
0 

LBL  14 


Preceding  activities 

Duration  of  preceding  activities 

Total  duration  for  preceding  activities 

LBL  15 


Largest  duration  for  preceding  activities 

LBL  16 


Coded  activity  register  value  containing 
activity  durations  (or)  coded  activity  register 
value  containing  preceding  activities 

Loop  control  value 

(or)  total  number  of  activities 

Contains  value  XXX, YYY  where  XXX  *  largest 
duration  of  preceding  activities  and  YYY  ■ 
duration  of  activity 
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Table  B2  (Cont’d) 


Register 

Number 


33 

30 

34 

30 

33 

30 

31 

34 

34 

33 

34 

36 

37 

38 

39 
41 


Register  Contents 

LBL  17 

Loop  control  value  and  storage  for  ending 
activities 

LBL  18 

Ending  activities 

Loop  control  value  for  ending  activities 

LBL  20 

Ending  activity  storage  factor 

LBL  21 

Loop  control  value  and  storage 

LBL  22 

Late  finish,  early  start,  and  duration  for 
activity 

Duration  of  activity 
(or)  late  start  value 

Preceding  activities 

LBL  23 

Preceding  activities 

LBL  30 

Late  finish  time  for  activity 
Preceding  activities 
Duration  of  activity 
Early  start  time  for  activity 
Early  finish  time  for  activity 
Late  start  time  for  activity 
Number  of  spaces  to  be  skipped 
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Table  82  (Cont'd) 


Register 

Number 


41 


30 

31 

40 


30 

31 

40 


34 


34 


32 

35 

(ACT  #  x  2)+40 


42-[ (TOTAL  #  ACT  x  2)+40] 


Register  Contents 

LBL  33 

Number  of  spaces  to  be  skipped 

LBL  36 

Coded  activity  register  containing  LF,  ES,  and 
duration 

Coded  activity  register  containing  preceding 
activities 

Activity  number 

LBL  41 

Coded  activity  register  containing  LF,  ES, 
and  duration 

Coded  activity  register  containing  preceding 
activities 

Activity  number 

LBL  44 

Preceding  activities 

LBL  50 

Preceding  activities 

LBL  98 

Late  finish  value 

Coded  activity  register  value 

Stores  the  value  XXX,YYY,ZZZ  where  XXX  =  LF, 
YYY  =  ES,  and  ZZZ  ■  duration  for  each  activity 

LBL  99 

Adds  999,000,000  to  XXX, YYY  value 
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Table  B2  (Cont'd) 


Register 

Number 


30 

31 

32 

35 


30 

(ACT  #  x  2)+40 


41 


30 

31 
40 


Register  Contents 

LBL  a 

Ending  activities 

Greatest  duration  of  preceding  activities 

Greatest  late  finish  time  for  ending 
activities 

Duration  of  activity 

LBL  b 

Ending  activities  multiplication  factor 
Contains  XXX,m,ZZZ  where  XXX  -  LF,  YYY  -  ES, 
and  ZZZ  -  duration 

LBL  CPU 

Total  number  of  activities 

LBL  CPMPR 

Coded  activity  register 
Coded  activity  register 
Starting  activity  number 
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Table  B3 


Label 

00 

01 

04 

05 

08 

09 

10 

11 

12 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
30 

33 

34 

35 


"CPM"  Program  —  Functions,  By  Label 
Purpose 

Inputs  activity  number  and  duration  for  each  activity 

Inputs  preceding  activities 

Stores  durations  in  coded  activity  registers 

Stores  preceding  activities  in  coded  activity  registers 

Determines  if  any  changes  are  required 

Intermediate  calculations;  displays  "ENTER  ENDING  ACTIVITIES" 
Inputs/stores  ending  activity  numbers 
Computes /stores  loop  control  value 
Stores  preceding  activities  in 

Determines  the  greatest  duration  of  combined  preceding  activities 
Stores  largest  duration  of  combined  preceding  activities 
Combines /stores  the  duration  of  an  activity  and  earl>  start 
Stores  loop  control  value 

Stores  ending  activities;  stores  loop  control  value 
Intermediate  calculation 
Intermediate  calculation 
Computes/stores  loop  control  value 

Computes /stores  (late  finish  -  duration)  for  each  activity 

Intermediate  calculation 

Intermediate  calculation 

Computes /stores  output  values 

Intermediate  calculation 

Outputs  late  finish 

Displays  "*****♦"  for  activities  on  the  critical  path 


76 


Table  B3  (Cont'd) 


Label 

Purpose 

36 

Outputs  bottom  of  CPM  box;  computes /stores  new 
and  coded  activity  registers 

activity  number 

41 

Outputs  activity  number,  duration,  ES,  EF,  LS, 
printer  is  not  attached 

LF  and  TF  when 

44 

Outputs  preceding  activities  when  printer  is  not  attached 

45 

Displays  "END  PROGRAM" 

49 

Outputs  key  for  CPM  display 

50 

Outputs  preceding  activities  on  printer 

51 

Intermediate  storage  value 

52 

Intermediate  storage  value 

53 

Computes  number  of  spaces  to  be  skipped 

54 

Intermediate  calculation 

55 

Intermediate  storage  value 

56 

Intermediate  storage  value 

57 

Computes  number  of  spaces  to  be  skipped 

98 

Computes /stores  XXX,YYY,ZZZ  for  each  activity, 
YYY  -  ES,  and  ZZZ  “  duration 

where  XXX  -  LF, 

99 

Adds  999,000,000  to  all  coded  activity  registers 

a 

Determines /stores  late  finish  value  for  ending 

activities 

b  Adds  XXX, 000,000  to  ending  activities  where  XXX  “  LF 

CPH  Marks  beginning  prograa;  checks  size  allocation;  inputs  number 

of  activities 

CPMHR  Inputs  starting  activity  number;  determines  if  key  is  to  be  output 
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APPENDIX  C: 

"CRATER"  PROGRAM  DETAILS 


This  appendix  provides  detailed  information  about  the  "CRATER"  program. 
Figure  Cl  shows  the  typical  sequence  of  events  and  the  options  that  a  user 
encounters  when  executing  this  program.  Table  Cl  is  an  example  of  the 
specific  steps  that  must  be  followed  to  solve  a  problem  when  one  uses  the  HP- 
41  calculator  without  a  printer  attached.  In  this  example,  the  program  deter¬ 
mines  the  amount  of  TNT,  and  the  number  of  boreholes  and  40- lb  cratering 
charges  needed  to  blast  a  41-ft-long  deliberate  crater. 

"CRATER"  presents  the  user  a  menu  for  types  of  craters.  The  menu  order 
is  "hasty,"  "deliberate,"  and  "relieved  face."  In  step  4  of  Table  Cl,  the 
user  has  to  press  the  R/S  key  to  restart  the  program  after  only  part  of  the 
message  has  been  displayed.  If  a  printer  were  attached  and  set  to  the  "NORM" 
printer  mode,  the  program  would  advance  automatically.  Steps  7  through  13  of 
the  same  example  would  also  be  executed  automatically  if  a  printer  were 
attached.  Figure  C2  shows  three  examples  of  using  "CRATER"  program  with  a 
printer  attached. 

Abbreviations  used  in  "CRATER"  are: 


Symbol 


Meaning 


CHG 

EXPLO 

FT 

LBS 

(Y/N) 

# 

l 


Charge 

Explosive(s) 

Feet 

Founds 

(Yes/No) 

Number 

Sum  of  (total) 


There  are 


two  sets  of  operating 

limits 

for  input  variables  in  the  program 

Variable 

Units 

Minimum 

Maximum 

Crater  length 

Feet 

12 

999 

Crater  depth 

Feet 

7.5 

15 

A  minimum  length  of  12  ft  is  required  to  insure  that  the  formula  for  the 

number  of  holes,  N  ■  ( - )  +  1,  is  always  positive.  The  maximum  crater  depth 

was  determined  by  assuming  that  the  maximum  practical  borehole  depth  was  10 
ft,  and  multiplying  this  by  1.5  to  get  15  ft  for  the  maximum  crater  depth. 
Algorithms  used  in  the  program  were  taken  from  FM  5-34  (pp  28-32)  and  from  FM 
5-25.2  Critical  assumptions  and  formulas  are  as  follows  for  each  crater 
option: 


2  Explosives  and  Demolitions.  FM  5-25  (HQ,  DA,  February  1971),  pp  3-21  through 

3-25. 
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1 


For  hasty  craters: 


a.  Roles  of  equal  depth  are  spaced  at  5-ft  intervals  and  are  packed 
with  10  lb  of  explosives  per  foot  of  depth. 

b.  Crater  depth  is  1.5  times  depth  of  borehole 

c.  Minimum  borehole  depth  is  5  ft 

d.  Maximum  practical  borehole  depth  is  10  ft 


e. 

in  feet. 


Number  of  holes  =  N  *=  (—  ^— )  +  1, 


rounded  up;  L  ■  crater  length. 


2.  For  deliberate  craters: 


a.  Holes  are  5  ft  apart,  with  both  end  holes  7-ft  deep;  depth  of 
holes  alternate,  but  no  5-ft  holes  are  adjacent 

b.  80  lb  of  explosives  in  7-ft  holes;  40  lb  in  5-ft  holes 

c.  Number  of  holes:  same  as  for  hasty  crater. 

3.  For  relieved  face  craters: 

a.  Number  of  5-ft  holes  (friendly  side):  N^  “  +  1,  rounded 

up 

b.  Number  of  4-ft  holes  (enemy  side):  N^  ■=  Nj  -  1 

c.  40  lb  of  explosive  in  5-ft  holes;  30  lb  in  4-ft  holes. 

4.  General:  if  a  hole  has  only  one  cratering  charge  in  it,  an  extra 
pound  of  TNT  must  be  provided  to  meet  the  double-priming  requirement. 

"CRATER"  uses  registers  31  through  39  to  store  the  values  described  in 
Table  C2.  If  cratering  ch^vges  are  used,  the  program  sets  general  purpose 
flag  "00". 

Table  C3  describes  the  general  function  of  each  part  of  the  program,  by 
label.  Figure  C3  is  a  label  wiring  diagram  showing  how  the  different  parts  of 
the  program  relate  to  each  other.  A  circular  loop  on  the  diagram  indicates  a 
return  to  the  same  label.  This  happens,  for  example,  when  the  user  does  not 
select  any  of  the  choices  in  a  menu  and  the  menu  is  presented  again.  One 
other  convention  used  in  the  wiring  diagram  is  a  two-headed  arrow  pointing 
both  to  and  from  a  local  subroutine  used  by  the  "CRATER”  program  only.  This 
indicates  the  program  executes  that  subroutine,  then  returns  to  the  main  pro¬ 
gram.  Global  subroutines,  used  by  all  the  major  application  programs  on  the 
MILENG1/UTIL  module,  are  not  shown  on  the  wiring  diagram,  but  are  described 
separately  in  Appendix  G. 

Figure  C4  presents  a  detailed  flowchart  of  the  "CRATER"  program,  and  Fig¬ 
ure  C5  lists  the  program  steps. 
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User  executes  "CRATER" 

1 

User  enters  crater  length 

I 

User  indicates  if  cratering  charges  are  to  be  used 

1 

User  selects  type  of  crater 

i  i 


User  enters  crater  depth 
(For  "hasty"  option  only) 

I 


XEQ  "CRATER" 
CRATER  LENGTH, (FT)-? 

41.0  RUN 

USE  CRATER  CHARGE( Y/N)? 


N 

RUN 

CRATER  TYPE: 

HASTY( Y/N)? 

Y 

RUN 

CRATER  DEPTH, (FT)-? 

7.5 

RUN 

IHOLES-6. 

HOLE  DEPTH, FT- 5.0 
EXPLOSIVE,  LBS/HOLE- 50 . 

EXPLO, I LB- 300. 

ALSO:  NEED  SHAPE  CHARGES 
TO  BLAST  BOREHOLES! 

END  PROGRAM 


XEQ  "CRATER" 


CRATER  LENGTH, (FT)-? 

41.0  RUN 

USE  CRATER  CHARGE( Y/N)? 

Y  RUN 
CRATER  TYPE: 

HASTY( Y/N) ? 

N  RUN 

DELIBERATE( Y/N)/? 

Y  RUN 


I7FT.HOLES-4. 

#5FT.HOLES-2. 

CRATER  CHG-10. 

PRIMER: TNT, LBS-2. 

EXPLO ,  Z LB-402. 

ALSO:  NEED  SHAPE  CHARGES 
TO  BLAST  BOREHOLES! 

END  PROGRAM 


Figure  C2.  "CRATER"  program 


XEQ  "CRATER" 
CRATER  LENGTH, (FT)-? 

41.0  RUN 

USE  CRATER  CHARGE(Y/N)? 


Y 

CRATER  TYPE: 

HASTY( Y/N)? 

RUN 

N 

RUN 

DELIBERATE(Y/N)? 

N 

RELIEVED  FACE(Y/N)? 

RUN 

Y 

RUN 

FRIEND  SIDE: 
I5FT.HOLES-6. 

# CRATER  CHG-6. 
PRIMER: TNT, LBS-6. 

ENEMY  SIDE: 
I4FT.HOLES-5 . 
TNT.LBS-150. 

EXPLO, ELB-396. 

ALSO:  NEED  SHAPE  CHARGES 

TO  BLAST  BOREHOLES! 
END  PROGRAM 

examples  —  with  printer. 
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CRATER 


Figure  C3.  "CRATER"  program  label  wiring  diagram 


Figure  C4.  "CRATER"  program  —  detailed  flowchart. 
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Figure  C4.  (Cont'd) 


014LBL  "CRATER” 
02  40 

03  XEQ  "*S" 

04  CF  00 

054LBL  01 
06  FIX  1 
07  31.039 
08  XEQ  "*C” 

09  31 
10  STO  24 

11  "CRATER  LENGTH, (” 

12  >FT)” 

13  999 

14  ENTER t 

15  3 

16  XEQ  "*I" 

17  "USE  CRATER  CHAR” 

18  "hGE" 

19  XEQ  "*Y" 

20  FS?  10 

21  SF  00 

224LBL  03 
23  "CRATER  TYPE:" 

24  XEQ  "*D” 

25  "HASTY” 

26  XEQ  "*Y" 

27  FS?  10 

28  GTO  11 
29  "DELIBERATE" 

30  XEQ  "*Y" 

31  FS?  10 

32  GTO  21 

33  "RELIEVED  FACE" 

34  XEQ  "*Y" 

35  FS?  10 

36  GTO  31 

37  GTO  03 

389LBL  11 

39  XEQ  81 

40  33 

41  STO  24 

42  "CRATER  DEPTH, (F" 

43  >T)" 

44  15 

45  ENTER t 

46  7.5 

47  XEQ  "*I” 

48  RCL  33 


49  1.5 

50  / 

51  STO  34 

52  10 

53  * 

54  XEQ  ”*R“ 

55  STO  35 

56  40 

57  / 

58  INT 

59  RCL  32 

60  * 

61  STO  36 

62  40 

63  * 

64  STO  38 

65  RCL  35 

66  RCL  32 

67  * 

68  - 

69  CHS 

70  STO  37 

71  RCL  38 

72  + 

73  STO  39 

74  ADV 

75  FIX  0 

76  "#HOLES“ 

77  RCL  32 

78  XEQ  "*0" 

79  FIX  1 

80  "HOLE  DEPTH, FT” 

81  RCL  34 

82  XEQ  "*0" 

83  FIX  0 

84  "EXPLOSIVE,  LBS/" 

85  "HHOLE” 

86  RCL  35 

87  XEQ  "*0" 

88  FS?  00 

89  GTO  15 

90  GTO  79 

914LBL  15 
92  "#CRATER  CHG" 

93  RCL  36 

94  XEQ  "*0" 

95  "TNT, LBS" 

96  RCL  37 

97  XEQ  "*0" 

98  GTO  79 


121 


124 


131 


134 


Figure  C5.  "CRATER”  pro gran  listing. 


994LBL  21 

100  XEQ  81 

101  2 
102  / 

103  INT 

104  1 

105  + 

106  STO  34 

107  RCL  32 

108  - 

109  CHS 

110  STO  35 

111  RCL  34 

112  2 

113  * 

114  + 

115  STO  36 

116  40 

117  * 

118  STO  39 

119  ADY 

120  FIX  0 
"#7FT. HOLES" 

122  RCL  34 

123  XEQ  "*0" 
"#5FT. HOLES" 

125  RCL  35 

126  XEQ  ”*0" 

127  FS?  00 

128  GTO  23 

129  GTO  79 

1304LBL  23 
"# CRATER  CHG" 

132  RCL  36 

133  XEQ  "*0" 
PRIMER: TNT, LBS" 

135  RCL  35 

136  XEQ  "*0" 

137  RCL  39 

138  RCL  35 

139  + 

140  STO  39 

141  GTO  79 

1424LBL  31 

143  RCL  31 

144  10 

145  - 

146  7 

147  / 


87 


I 


148  XEQ 

"*R" 

1914LBL  37 

149  STO 

32 

192  ADV 

150  1 

193  "ENEMT  SIDE:" 

151  + 

194  XEQ  "*D" 

152  STO 

33 

195  "#4FT. HOLES" 

153  40 

196  RCL  32 

154  * 

197  XEQ  "*0" 

155  STO 

34 

198  "TNT, LBS" 

156  RCL 

32 

199  RCL  35 

157  30 

200  XEQ  "*0" 

158  * 

159  STO 

35 

2019LBL  79 

160  + 

202  ADV 

161  STO 

39 

203  "EXPLO, TLB" 

162  FS? 

00 

204  RCL  39 

163  GTO 

33 

205  XEQ  "*0" 

164  GTO 

35 

206  "ALSO:  NEED  SHAP 

165iLBL 

33 

207  "HE  CHARGES" 
208  XEQ  "*D" 

166  RCL 

39 

209  "TO  BLAST  BOREHO" 

167  RCL 

33 

210  'TLES !  ” 

168  + 

211  XEQ  "*D" 

169  STO 

39 

212  CF  00 

170fLBL 

35 

213  XEQ  "*P” 

214  STOP 

171  ADV 

215  GTO  01 

172  FIX 

0 

173  "FRIEND 

SIDE:" 

216»LBL  81 

174  XEQ 

"*D" 

217  RCL  31 

175  ”#5FT. HOLES" 

218  16 

176  RCL 

33 

219  - 

177  XEQ 

"*0" 

220  5 

178  FS? 

00 

221  / 

179  GTO 

36 

222  1 

180  "TNT 

,  LBS" 

223  + 

181  RCL 

34 

224  XEQ  "*R” 

182  XEQ 

"*0" 

225  STO  32 

183  GTO 

37 

226  RTN 

184#LBL 

36 

227  "2/2/82" 

228  .END. 

185  "# CRATER  CHG" 

186  RCL 

33 

187  XEQ 

"*0" 

188  "PRIMER: TNT, LBS” 

189  RCL  33 

190  XEQ  "*0" 


Figure  C5.  (Cont'd) 


Table  Cl 


"CRATER"  Program  Example  —  Without  Printer 


l££lS. 

Resulting  Display 

1 

XEQ 

ALPHA 

CRATER 

ALPHA 

CRATER  LENGTH,  (FT)  -  ? 

2 

41  R/S 

OSE  CRATER  CHARGE  (Y/N)? 

3 

Y  US. 

CRATER  TYPE: 

4 

R/s 

HASTY  (Y/N)? 

5 

N  R/£ 

DELIBERATE  (Y/N)? 

6 

*  R/s 

#  7  FT.  HOLES  -  4. 

7 

R/l 

#  5  FT.  HOLES  -  2. 

8 

R/l 

#  CRATER  CHG  -  10. 

9 

1/1 

PRIMER:  TNT,  LBS  -  2. 

10 

1/1 

EXPLO,  £  LB  -  402. 

11 

1/1 

ALSO:  NEED  SHAPE  CHARGES 

12 

1/1 

TO  BLAST  BOREHOLES! 

13 

1/1 

END  PROGRAM 

f 


Table  C2 


"CRATER"  Program  —  Special  Register  Uses 


Register 

Option 

Number 

Code* 

Register  Contents 

31 

H,D,R  - 

Crater  length  in  feet 

32 

H,D  - 

Number  of  holes 

R  - 

Number  of  holes  in  enemy  row  (4  foot  holes) 

33 

H  - 

Crater  depth  in  feet 

R  - 

Number  of  holes  in  friendly  row  (5-ft  holes);  number 
of  cratering  charges;  pounds  of  TNT  primer 

34 

H  - 

Hole  depth  in  feet 

D  - 

Number  of  7-ft  holes 

R  - 

Pounds  of  explosive  for  friendly  row  (5-ft  holes) 

35 

H  - 

Pounds  of  explosive  per  hole 

D  - 

Number  of  5-ft  holes;  pounds  of  TNT  primer 

R  - 

Pounds  of  explosive  for  enemy  row  (4-ft  holes) 

36 

H,D  - 

Number  of  cratering  charges  required 

37 

H  - 

Pounds  of  TNT  required  if  cratering  charges  are  used 

38 

H  - 

Intermediate  value 

39 

H,D,R  - 

Total  pounds  of  explosive  required 

*H  *  hasty;  D  *•  deliberate;  R  =  relieved  face 
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Table  C3 


"CRATER"  Program  —  Functions,  By  Label 

Label  Purpose 

CRATER  Marks  beginning  of  progran;  checks  size  allocation 

01  Clears  registers;  inputs  crater  length  in  feet;  determines  if 

cratering  charges  are  to  be  used 

03  Presents  crater-type  menu 

11  Inputs  crater  depth;  computes /outputs  values  for  a  hasty  crater 

15  Outputs  certain  values  for  a  hasty  crater  (if  cratering  charges 

are  used) 

21  Computes /outputs  values  for  a  deliberate  crater 

23  Computes/outputs  certain  values  for  a  deliberate  crater  (if 

cratering  charges  are  used) 

31  Computes  values  for  a  relieved  face  crater 

33  Computes  certain  values  for  a  relieved  face  crater  (if 

cratering  charges  are  used) 

35  Outputs  friendly  side  values  for  a  relieved  face  crater 

36  Outputs  friendly  side  values  for  a  relieved  face  crater  (if 

cratering  charges  are  used) 

37  Outputs  enemy  side  values  for  a  relieved  face  crater 

79  Outputs  total  pounds  of  explosive  required;  displays  shape  charge 

message;  advises  of  program  end 

Local  Sub-Routine 

81  Computes  number  of  holes  for  hasty  and  deliberate  craters 
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APPENDIX  D: 

"DEMO"  PROGRAM  DETAILS 

This  appendix  provides  detailed  information  about  the  "DEMO"  program. 
Figure  Dl  shows  the  typical  sequence  of  events  and  the  options  that  a  user 
encounters  when  executing  this  program.  Table  Dl  is  an  example  of  the 
specific  steps  that  must  be  followed  to  solve  a  problem  when  one  uses  the  HP- 
41  calculator  without  a  printer  attached.  In  this  example,  the  program  deter¬ 
mines  the  amount  of  explosive,  the  number  of  explosive  units  and  charges,  and 
the  minimum  safe  distance  required  to  breach  a  reinforced  concrete  wall  that 
is  7-1/2-ft  thick  and  42 -ft  long  using  ground-placed,  tamped  charges. 

"DEMO"  presents  the  user  four  menus:  explosive  types,  applications, 
charge  placements,  and  steel  types.  The  order  of  the  first  menu  is  TNT,  M112 
04(1.25  lb),  M5A1  04(2.5  lb).  Dynamite  Ml,  Tetrytol,  M118  Sheet  (0.5  lb),  and 
M186  Roll  (25  lb).  The  next  menu  is  "cut  timber,"  "cut  steel-"  and  "breach 
wall."  If  the  cut  timber  application  option  is  selected,  the  next  menu  is 
charge  placement,  in  this  order:  "abatis,"  "external."  then  "internal."  The 
last  menu  is  only  presented  in  "cut  steel"  applications;  the  menu  order  is  "RR 
rails."  "round  steel  shapes,"  "structural  steel-"  then  "carbon  steel  rods." 

In  step  2  of  Table  Dl.  the  user  has  to  press  the  R/S  key  to  restart  the  pro¬ 
gram  after  only  part  of  the  message  has  been  displayed.  If  a  printer  were 
attached  and  set  to  the  "NORM"  printer  mode,  the  program  would  advance 
automatically,  and  steps  17  through  20  would  be  executed  automatically.  Fig¬ 
ure  D2  shows  three  examples  of  using  "DEMO"  program  with  a  printer  attached. 
Abbreviations  used  in  "DEMO"  are: 


Symbol 

Meaning 

Symbol 

Mean inn 

BREACH 

Breaching 

M 

Meter 

C 

Tamping  factor 

MIN 

Minimum 

CONCR 

Concrete 

RE  INF 

Reinforced 

DEMO 

Demolition 

REQD 

Required 

DIA 

Diameter 

RR 

Railroad 

DIST 

Distance 

SECT 

Section 

EXPLO 

Explosive 

STL 

Steel 

EXTERN 

External 

STR.STL. 

Structural  steel 

FT 

Feet 

SQ.  IN 

Square  inches 

HT 

H(  Lght 

TAB 

Table 

IN 

Inches 

X-SECT 

Cross-sectional 

INTERN 

Internal 

(Y/N) 

(Yes/No) 

K 

Material  factor 

# 

Number 

LB 

Pound ( s ) 

There  are  nine  sets  of  operating  limits  for  input  variables  in  the  program: 


Variable 

Units 

Minimum 

Maximum 

Timber  diameter 

Inches 

5 

180 

Rail  height 

Inches 

1 

9 

Bar  diameter 

Inches 

0 

24 

X-sect  area 

Sq  in. 

0 

99 

Section  diameter 

Inch 

0 

99 

Material  factor,  K 

0.07 

1.76 

Tamp  factor,  C 

1 

3.6 

Barrier  width 

Feet 

0 

999 

Breaching  radius 

Feet 

0.1 

99 

Algorithms  used  in  the  progran  were  taken  from  FM  5-34  (pp  24-29,  and  from 
FM  5-25  (pp  1-6  and  3-20).  Critical  assumptions  and  formulas  are  as  follows 
for  each  application  option: 

1.  For  timber  cutting  applications: 

a.  Pounds  of  TNT  (P)  required  for  one  charge,  where  D  “  diameter  of 
timber  in  inches  — 


For  external  charge  placement:  P  ■  D2/40 
For  internal  charge  placement:  P  -  D2/250 
For  abatis  charge  placement:  P  ■  D2/50. 

p 

Pounds  of  explosive  *  - — ,  where  RE  is  the  relative  effectiveness 


Number  of  explosive  units  ■  - - . 

size  of  unit  to  be  used 

2.  For  steel  cutting  applications: 

a.  Pounds  of  TNT  (P)  re  ;~ed  for  one  charge,  where  D  ■  diameter  of 
timber  in  inches  — 

(1)  For  railroad  rails  (no  effectiveness  factor  adjustment): 

Rail  height  >  5  in.,  P  -  1  lb 

Rail  height  <  5  in.,  P  -  0.5  lb 

Railroad  frogB,  P  ■  2  lb 

(2)  For  round  steel  shapes  (no  effectiveness  factor  adjustment) 
Diameter  <  1  in.  P  ■  1  lb 

1  in.  <  Diameter  <  2  in.,  P  ■  2  lb 

Diameter  >  2  in.,  P  ■  —  X  (A)* 

8 

(3)  For  structural  steel  sections:  P  ■  —  x  (A)* 


b. 

factor 

c. 


*A  is  cross-sectional  area  (sq  in.). 
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(4)  For  high  carbon  steel  rods,  where  D  ■  diameter  in  inches:  P  *  D3. 

p 

b.  Adjusted  pounds  of  explosive  =  — 

RE 

c.  Number  of  explosive  units  *  — - — —  °/  explosive - ^ 

size  of  unit  to  be  used 

3.  For  breaching  wall  applications: 

a.  Pounds  of  TNT  (P)  required  for  one  charge,  where  R  =  breaching 
radius  in  feet.  K  »  material  factor,  and  C  =  tamping  factor:  P  =  R3  KC 

p 

b.  Adjusted  pounds  of  explosive  =  — 

RE 

c.  Number  of  charges  (N),  where  W  =  barrier  width  and  R  =  breaching 

W 

radius  in  feet:  N  =  — 

2R 

—  if  N  <  1-1/4,  then  N  =  1 

—  if  1-1/4,  <  N  <  2-1/2,  then  N  =  2 

—  if  N  >  2-1/2,  then  round  off. 

d.  Pounds  of  explosive  required  =  (lb  of  explosive)  x  (no.  of  charges). 

4.  General:  minimum  safe  distance  (m)  for  personnel  in  the  open 

O 

m=100  /lb  of  explosive 


"DEMO"  uses  registers  30  through  40  to  store  the  values  described  in 
Table  D2.  The  program  sets  general  purpose  flag  "00"  if  the  user  elects  to 
use  the  breach  wall  application. 

Table  D3  describes  the  general  function  of  each  part  of  the  program,  by 
label.  Figure  D3,  a  label  wiring  diagram,  shows  how  the  different  parts  of 
the  program  relate  to  each  other.  A  circular  loop  on  the  diagram  indicates  a 
return  to  the  same  label.  A  two-headed  arrow  pointing  to  and  from  a  label 
indicates  the  program  executes  that  local  subroutine,  then  returns  to  the  main 
program.  Global  subroutines,  used  by  a:\  the  major  application  programs  on 
the  MILENG1/UTIL  module,  are  not  shown  on  the  wiring  diagram,  but  are 
described  separately  in  Appendix  G. 

Figure  D4  presents  a  detailed  flowchart  of  the  "DEMO"  prog. am,  and  Figure 
D5  lists  the  program  steps. 
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CONSTRUCTION  ENGINEERING  RESEARCH  LAB  (ARMY)  CHAMPAIGN  IL  F/G  9/2 
SOFTWARE  DOCUMENTATION  FOR  MILENGl/UTIL  READ-ONLY-MEMORY  MODULE— ETC (U) 
SEP  82  L  A  THOMAS*  J  M  DEPONAI 

CERL-TR-P-134  NL 


User  executes  “DEMO” 


User  selects  type  of  explosive 


User  chooses  application 


User  enters  appropriate  data  for  the  chosen  application 


Program  computes  and  outputs: 
pounds  of  explosive  required 
number  of  explosive  units 
number  of  charges  (for  breaching  application) 
"in  open”  safe  distance. 


Figure  Dl.  "DEMO"  program  sequence  of  events. 
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i 


XEQ  " 

EXPLOSIVE  TYPE: 

TNT( Y/N) ? 

DEMO" 

N 

RUN 

Ml 12  C4(1.25LB)(Y/N) 

Y 

APPLICATION: 

CUT  TIMBER(Y/N)? 

RUN 

Y 

TIMBER  DIA.(IN)-? 

RUN 

24.0 

CHARGE  PLACEMENT: 
ABATIS(Y/N)? 

RUN 

N 

EXTERN. (Y/N)? 

RUN 

Y 

REQD.EXPLO.LBS-11.3 

#EXPLO.UNITS-9. 

RUN 

IN  OPEN, SAFE  DIST.M- 
END  PROGRAM 

300. 

XEQ  ” 

EXPLOSIVE  TYPE: 
TNT(Y/N)? 

DEMO” 

Y 

BLOCKS, TNT, 1LB( Y/N)? 

RUN 

N 

APPLICATION: 

CUT  TIMBER( Y/N)? 

RUN 

N 

CUT  STEEL( Y/N)? 

RUN 

Y 

TYPE  STEEL: 
RR.RAIL(Y/N)? 

RUN 

Y 

RAIL.HT.  ( IN)-? 

RUN 

5.0 

RR.FROG(Y/N)? 

RUN 

N 

RUN 

REQD.EXPL0,LBS=1.0 

#EXPL0,UNITS-2. 

IN  OPEN, SAFE  DIST.M-300. 
END  PROGRAM 


XEQ  "DEMO" 


EXPLOSIVE  TYPE: 

TNT( Y/N) ? 

N 

RUN 

M112  C4( I .25LB) ( Y/N) ? 
N 

RUN 

M5A1  C4(2.5LB)(Y/N)? 

N 

RUN 

DYNAMITE, Ml (Y/N)? 

Y 

RUN 

APPLICATION: 

CUT  TIMBER( Y/N)? 

N 

RUN 

CUT  STEEL( Y/N)? 

N 

RUN 

BREACH(Y/N)? 

Y 

RUN 

TAB.2-3,FM5-34 : 
MATERIAL  FACTOR, K«? 

.54 

RUN 

TAB .2-4 ,FM5~34 : 

TAMP  FACTOR, C«? 

2.0 

RUN 

BARRIER  WIDTH, (FT)=? 

42.0 

RUN 

BREACH,  RADIUS, (FT)-? 

7.5 

RUN 

REQD.EXPLO ,LBS«1 ,486.5 
#EXPLO . UNITS- 2 , 973 . 
//CHARGES*  3. 

OPEN, SAFE  DIST,M=1 , 141 , 
END  PROGRAM 


Figure  D2.  "DEMO”  program  examples  —  with  printer. 
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Figure  D4.  "DEMO"  program  —  detailed  flowchart 
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LBL23 


Figure  DA.  (Coat'd) 


Figure  D4.  (Cont’d) 


Figure  D4.  (Cont’d). 
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Figure  D4.  (Cont'd). 
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i 


Oltl.RL  "DEMO” 
02  41 

03  XEQ  “*S" 

04  CF  00 


05fLBL  01 
06  30.04 


07 

XEQ 

"*C" 

08 

FIX 

1 

09fLBL 

03 

"EXPLOSIVE 

TYPE:' 

11 

XEQ 

"*D" 

12 

"TNT 

i  •* 

13 

XEQ 

”*Y" 

14 

FS? 

10 

15 

GTO 

05 

"Ml  12  C4(  1 . 

25LB)' 

17 

XEQ 

••*Y" 

18 

FS? 

LO 

19 

GTO 

07 

i  "M5A1 

C4(2 

! . 5LB) 

21 

XEQ 

••*Y" 

22 

FS? 

10 

23 

GTO 

09 

24  "DYNAMITE, Ml" 

25 

XEQ 

••*Y" 

26 

FS? 

10 

27 

GTO 

11 

28  "TETRYTOL" 

29 

XEQ 

•**Y" 

30 

FS? 

10 

31 

GTO 

13 

"Ml 18  SHEET(0.5L 

33 

>B) 

i” 

34 

XEQ 

”*y" 

35 

FS? 

10 

36 

GTO 

15 

"M186  ROLL(25LB) 

38 

XEQ 

•**Y“ 

39 

FS? 

10 

40 

GTO 

17 

41 

GTO 

03 

424LBL 

05 

43 

1 

44 

STO 

31 

45 

STO 

32 

46  "BLOCKS, TNT, l LB” 

47  XEQ  "*Y" 

48  FS?  10 

49  GTO  19 

50  .5 

51  STO  32 

52  GTO  19 

524LBL  07 

54  1.34 

55  STO  31 

56  1.25 

57  STO  32 

58  GTO  19 

594LBL  09 

60  1.34 

61  STO  31 

62  2.5 

63  STO  32 

64  GTO  19 

65fLBL  11 

66  .92 

67  STO  31 

68  .5 

69  STO  32 

70  GTO  19 

7HLBL  13 

72  1.2 

73  STO  31 

74  2.5 

75  STO  32 

76  GTO  19 

77tLBL  15 

78  1.14 

79  STO  31 

80  .5 

81  STO  32 

82  GTO  19 

83fLBL  17 

84  1.14 

85  STO  31 

86  25 

87  STO  32 


Figure  D5.  "DEMO"  program  listing 
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88+LBL  19 
89  "APPLICATION:" 

90  XEQ  "*D" 

91  "CUT  TIMBER" 

92  XEQ  "*Y" 

93  FS?  10 

94  GTO  21 
95  "CUT  STEEL" 

96  XEQ  "*Y" 

97  FS?  10 

98  GTO  31 

99  "BREACH" 

100  XEQ  "*Y” 

101  FS?  10 

102  GTO  41 

103  GTO  19 

104*LBL  21 

105  33 

106  STO  24 

107  "TIMBER  DIA.(IN)" 
108  180 

109  ENTER t 

110  .5 

111  XEQ  "*I" 
112»LBL  23 

113  "CHARGE  PLACEMEN" 

114  >T:" 

115  XEQ  "*D" 

116  "ABATIS" 

117  XEQ  "*Y" 

118  FS?  10 

119  GTO  25 
120  "EXTERN." 

121  XEQ  "*Y" 

122  FS?  10 

123  GTO  27 
124  "INTERN." 

125  XEQ  "*Y" 

126  FS?  10 

127  GTO  29 

128  GTO  23 

129»LBL  25 

130  RCL  33 

131  Xt2 

132  50 

133  / 

134  RCL  31 

135  / 

136  XEQ  81 

137  GTO  51 


/ 


138+LBL  27 

139  RCL  33 

140  Xt2 

141  40 

142  / 

143  RCL  31 

144  / 

145  XEQ  81 

146  GTO  51 

1479LBL  29 

148  RCL  33 

149  Xt2 


186  FS?  10 


187  GTO  36 

188  5 

189  RCL  33 

190  X<Y? 

191  GTO  33 

192  1 

193  XEQ  81 

194  GTO  51 

1954LBL  33 

196  .5 

197  XEQ  81 

198  GTO  51 


Figure  D5.  (Cont'd). 


2319LBL  37 

232  "HARD  BLOCK  EXPL' 
233  "1-0.  ONLY!" 

234  XEQ  "*D" 

235  33 

236  STO  24 

237  "X-SEC . AREA( SQ. “ 

238  “I- IN)" 

239  99 

240  ENTER f 

241  0 

242  XEQ  "*I" 


150  250 

2434LBL  38 

151  / 

1999LBL  34 

244  RCL  33 

152  RCL  31 

200  33 

245  3 

153  / 

201  STO  24 

246  * 

154  XEQ  81 

202  "BAR.DIA.(IN)" 

247  8 

155  GTO  51 

203  24 

248  / 

204  ENTERf 

249  XEQ  81 

1569LBL  31 

205  0 

250  GTO  51 

"TYPE  STEEL:" 

206  XEQ  "*I" 

158  XEQ  ”*D" 

207  1 

2519LBL  39 

159  "RR.RAIL" 

208  RCL  33 

252  33 

160  XEQ  ”*Y" 

209  X<«Y? 

253  STO  24 

161  FS?  10 

210  GTO  35 

254  ”SECT.DIA.( IN)“ 

162  GTO  32 

211  2 

255  99 

1  "SHAPE,  ROUND” 

212  RCL  33 

256  ENTERf 

164  XEQ  ”*Y” 

213  X<Y? 

257  0 

165  FS?  10 

214  GTO  36 

258  XEQ  "*I" 

166  GTO  34 

215  RDL  33 

259  RCL  33 

167  "STR.STL." 

216  2 

260  Xf2 

168  XEQ  "*Y" 

217  / 

261  XEQ  81 

169  FS?  10 

218  Xt2 

262  GTO  51 

170  GTO  37 

219  PI 

CARBON  STL. ROD" 

220  * 

2639LBL  41 

172  XEQ  "*Y” 

221  STO  33 

264  SF  00 

173  FS?  10 

222  GTO  38 

265  "TAB.2-3.FM-34: 

174  GTO  39 

266  XEQ  "*D” 

175  GTO  31 

2239LBL  35 

267  34 

224  1 

268  STO  24 

1769LBL  32 

225  XEQ  81 

269  FIX  2 

177  33 

226  GTO  51 

270  "MATERIAL  FACTO! 

178  STO  24 

271  "h,K" 

■RAIL.HT.(IN)" 

2274LBL  36 

272  1.76 

180  9 

228  2 

273  ENTERf 

181  ENTERf 

229  XEQ  81 

274  .07 

182  1 

230  GTO  51 

275  XEQ  "*I" 

183  XEQ  "*I" 

276  "TAB . 2-4 , FM5-34 ; 

184  "RR.FROG" 

277  XEQ  ”*D” 

185  XEQ  "*Y" 

278  FIX  1 

105 


279 


284 


290 


"TAMP  FACTOR, C" 

327fLBL  47 

372tLBL  53 

280  3.6 

328  2 

373  27 

281  ENTER t 

329  STO  38 

374  RCL  39 

282  1 

375  XOY? 

283  XEQ  ”*I" 

3304LBL  49 

376  GTO  55 

BARRIER  WIDTH, ( " 

331  RCL  39 

377  1 

285  "(-FT)  ” 

332  RCL  31 

378  ENTERt 

286  999 

333  / 

379  3 

287  ENTER t 

334  XEQ  81 

380  / 

288  0 

335  RCL  38 

381  YtX 

289  XEQ  "*I" 

336  * 

382  100 

BREACH.  RADIUS," 

337  STO  39 

383  * 

291  "(-(FT)" 

338  RCL  40 

384  STO  30 

292  99 

339  RCL  38 

385  GTO  57 

293  ENTERt 

340  * 

294  0.1 

341  STO  40 

3864LBT,  55 

295  XEQ  "*r 

387  300 

296  RCL  36 

3424LBL  51 

388  STO  30 

297  RCL  37 

343  ADV 

298  / 

344  FIX  1 

389tLBL  57 

299  2 

345  "REQD.EXPLO.LBS" 

390  "IN  OPEN, SAFE 

300  / 

346  RCL  39 

391  "hST.M" 

301  STO  38 

347  XEQ  "*0" 

392  RCL  30 

302  RCL  37 

348  FIX  0 

393  XEQ  ”*0' 

303  3 

349  "#EXPL0. UNITS" 

394  XEQ  ”*P' 

304  YtX 

350  RCL  40 

395  CF  00 

305  RCL  34 

351  XEQ  "*0" 

396  STOP 

306  * 

352  RCL  39 

397  GTO  01 

307  RCL  35 

353  5 

308  * 

354  X>Y? 

3984LBL  81 

309  STO  39 

355  XEQ  52 

399  STO  39 

310  1.25 

356  FC?  00 

400  RCL  32 

311  RCL  38 

357  GTO  53 

401  / 

312  X<Y? 

358  "# CHARGES" 

402  XEQ  "*R’ 

313  GTO  45 

359  RCL  38 

403  STO  40 

314  2.5 

360  XEQ  "*0" 

404  RCL  32 

315  RCL  38 

361  GTO  53 

405  * 

316  X<Y? 

406  STO  39 

317  GTO  47 

3629LBL  52 

407  RTN 

318  RCL  38 

363  FC?  00 

408  "2/2/82" 

319  FIX  0 

364  RTN 

409  .END. 

320  RND 

365  "REINF .CONCR:USE" 

321  STO  38 

366  "(-5LB.MIN . ” 

322  GTO  49 

367  XEQ  "*D” 

368  "DENSE  CONCR:USE” 

323+LBL  45 

369  "(-3LB.MIN . " 

324  1 

370  XEQ  "*D" 

325  STO  38 

326  GTO  49 

371  RTN 

Figure  D5.  (Cont'd). 
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Table  D1 


DEMO"  Program  Example  —  Without  Printer 


Step  Press  Resulting  Display 


1 

XEQ 

ALPHA 

DEMO 

ALPHA 

EXPLOSIVE  TYPE: 

2 

R/S 

TNT  (Y/N)? 

3 

N  R/S 

Ml  12  C4  (2.25  LB)  (Y/N)? 

4 

N  ij, S 

M5A1  C4  (2.5  LB)  (Y/N)? 

5 

N  R/S 

DYNAMITE,  Ml  (Y/N)? 

6 

y  r7s 

APPLICATION: 

7 

R/S 

CUT  TIMBER  (Y/N)? 

8 

N  TC7S- 

CUT  STEEL  (Y/N)? 

9 

N  R/S 

BREACH  (Y/N)? 

10 

Y  r7? 

TAB.  2-3,  FM  5-34: 

11 

57s 

MATERIAL  FACTOR,  K  -  ? 

12 

•54  r7s 

TAB.  2-4,  FM  5-34: 

13 

m* 

TAMP  FACTOR,  C  -  ? 

14 

2  R/S 

BARRIER  WIDTH,  (FT)  -  ? 

15 

42  R/S 

BREACH.  RADIUS,  (FT)  -  ? 

16 

7.5  ms 

REQD.  EXPLO,  LBS  -  1,486.5 

17 

r7s 

#  EXPLO.  UNITS  -  2,973. 

18 

r7s 

#  CHARGES  -  3. 

19 

HI 

OPEN,  SAFE  DIST,  M  -  1,141 

20 

R/S 

END  PROGRAM 

k 
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Table  D2 


DEMO"  Program  —  Special  Regtscer  Uses 


Register 

Number 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


Register  Contents 
"In  open”  safe  distance  In  meters 

Relative  effectiveness  factor  (RE)  of  specified  explosive 

Explosive  unit  weights 

Timber  diameter  In  inches 

(or)  rail  height  In  inches 

(or)  bar  diameter  in  inches 

(or)  cross-sectional  area  in  square  inches 

(or)  sectional  diameter  in  inches 

Material  factor,  K 

Tamp  factor,  C 

Barrier  width  in  feet 

Breaching  radius  in  feet 

Number  of  charges  required 

Pounds  of  explosive  required 

Number  of  explosive  units  required 
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Table  D3 


Label 

DEMO 

01 

03 

05 

07 

09 

11 

13 

15 

17 

19 

21 

23 

25 

27 

29 

31 

32 

33 


"DEMO"  Program  —  Functions,  By  Label 

Purpose 

Marks  beginning  of  program;  checks  size  allocation 

Clears  register 

Presents  explosive-type  menu 

Loads  TNT  effectiveness  factor  (EF)  in  R  and  issue  size 
into  R32  J1 

Loads  M112  C4  (1.25  lb)  effectiveness  factor  (EF)  in  R^  and 
issue  size  into  R^ 

Loads  M5A1  C4  (2.5  lb)  effectiveness  factor  (EF)  in  R^  and 
issue  size  into  R^ 

Loads  dynamite,  Ml  effectiveness  factor  (EF)  in  R^^  and  issue 
size  into  R^ 

Loads  Tetrytol  effectiveness  factor  (EF)  in  R^^  and  issue 
size  into  R^2 

Loads  M118  sheet  (0.5  lb)  effectiveness  factor  (EF)  in  R31  and 
issue  size  into  R^ 

Loads  M186  roll  (25  lb)  effectiveness  factor  (EF)  in  R31  and 
issue  size  into  R^ 

Presents  application  menu 

Inputs  timber  diameter  in  inches 

Presents  charge  placement  menu  (for  cut-timber  application) 

Computes  values  for  abatis  charge  placement 
Computes  values  for  external  charge  placement 
Computes  values  for  internal  charge  placement 
Presents  menu  for  cut  steel  applications 

Inputs  rail  height;  determines  if  railroad  frogs  are  used;  creates/ 
stores  values  for  railroad  rails  >  5  in. 

Creates/stores  values  for  railroad  rails  <  5  in. 
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Label 


Table  D3  (Cont'd) 
Purpose 


34 

35 

36 

37 

38 

39 

41 

45 

47 

49 

51 

52 

53 
55 
57 

Local 

81 


Inputs  bar  diameter;  computes/stores  values  for  mild  steel  round 
shape  rods 

Creates/stores  values  for  mild  steel  round  shape  rods  with  diameters 
<  1  in. 

Creates/stores  values  for  mild  steel  round  shape  rods  with 
diameters  between  1  and  2  In.  and  RR  frogs 

Inputs  cross-sectional  area  in  square  inches  for  structural 
steel  sections 

Computes  values  for  structural  steel  sections 

Inputs  diameter  of  section;  computes  values  for  high  carbon  steel 
rods 

Inputs  K-factor,  C-factor,  barrier  width,  and  breaching  radius; 
computes  values  for  breach  wall  application 

Intermediate  calculation  for  breach  wall  charges 

Intermediate  calculation  for  breach  wall  charges 

Intermediate  calculation  for  breach  wall  charges 

Outputs  values  for  all  applications 

Displays  minimum  limitations  for  breach  wall 

Computes  safe  distance 

Intermediate  computation  for  safe  distance 
Outputs  safe  distance;  displays  program  end 
Sub-Routine 


Computes  number  of  units  and  pounds  of  explosive 
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APPENDIX  E: 

"MINES"  PROGRAM  DETAILS 


This  appendix  provides  detailed  information  about  the  "MINES"  program. 
Figure  El  shows  the  typical  sequence  of  events  and  the  options  that  a  user 
encounters  when  executing  this  program.  Table  El  is  an  example  of  the 
specific  steps  that  must  be  followed  to  solve  a  problem  when  one  uses  the  HP- 
41  calculator  without  a  printer  attached.  In  this  example,  the  program  deter¬ 
mines  the  logistical  requirements  for  a  minefield  400-m  long  and  400-m  deep, 
with  an  antitank,  antipersonnel  fragmentation,  antipersonnel  blast  (AT-APF- 
APB)  mine  density  of  1-1-0  and  an  AT-APF-APB  mine  irregular  outer  edge  (I0E) 
cluster  composition  of  1-2-2. 

In  step  2  of  Table  El,  the  user  has  to  press  the  R/S  key  to  restart  the 
program  after  only  part  of  the  message  has  been  displayed.  If  a  printer  were 
attached  and  set  to  the  "NORM"  printer  mode,  the  program  would  advance 
automatically,  and  steps  13  through  31  would  be  executed  automatically.  Fig¬ 
ure  E2  shows  two  examples  of  using  the  "MINES"  program  with  a  printer 
attached. 

Abbreviations  used  in  "MINES"  are: 


Symbol 


Meaning 


APB 
APF 
AT 
10  E 
M 

MAX 

MMF 

RL 

(Y/N) 

# 


Antipersonnel  Blast 
Antipersonnel  Fragmentation 
Antitank 

Irregular  Outer  Edge 
Meter(s) 

Maximum 
Main  Minefield 
Ree 1 ( s ) 

Yes /No 
Number 


Eight  sets  of  operating  limits  for  input  variables  are  in  the  program: 


Variable 

Mine  densities: 
AT  mines/m 
APF  mines /m 
APB  mine 8 /m 


Units 


Mines /me  ter 
Mine 8 /me  ter 
Mines /me  ter 


Minimum  Maximum 


IOE  cluster  composition: 

No.  of  AT  mines 
No.  of  APF  mines 
No.  of  APB  mines 


Minefield  length 
Minefield  depth 


Meters 

Meters 
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The  maximum  values  for  the  IOE  cluster  composition  were  determined  by  two 
rules:  the  maximum  number  of  antitank  mines  per  cluster  is  always  one;  the 
maximum  total  number  of  mines  in  any  given  cluster  is  five.  Algorithms  used 
in  the  program  were  taken  from  FM  5-34  (pp  54-59),  and  from  FM  20-32.3  Criti¬ 
cal  assumptions  and  formulas  are  as  follows: 


1. 

2. 


Number  of  IOE  live  clusters 


meters  of  front 


Number  of  mines  in  main  minefield  ■  meters  of  front  x  desired  den¬ 


sity. 

3.  Number  of  mines  in  IOE  *  number  of  IOE  live  clusters  x  densities  for 
IOE  representative  cluster. 


4.  Total  number  of  mines  =  (number  of  mines  in  MMF  +  number  of  mines  in 
IOE)  x  110  percent. 


5.  Number  of  strips  required  —  the  larger  value  of: 


a.  (3/5)  x  (total  mine  density),  or 


b.  3  x  (AT  density). 


6.  Number  of  sandbags  =  (9S  +  3)  x  (number  of  IOE  clusters),  where  S  = 
number  of  lettered  strips. 


7. 

8. 


„  ,  .  ,  ,  meters  of  barbed  wire 

Number  of  pickets  and  signs  =  - - — — - 

Number  of  man-hours  (MN-HR) : 


Total  AT  Mines  Total  APF  Mines  +  Total  APB  Mines 
4  AT  Mine s /MN-HR  8  APF  Mines /MN-HR  16  APB  Mines /MN-HR 


9.  Man-hour  adjustment:  increase  man-hours  by  50  percent  if  work  is  to 
be  done  at  night . 

„  .  ,  ,  .  ,  ,  _  l4(depth  +  width)  +  320]x(1.4) 

10.  Number  of  barbed  wire  reels  ■  - * - . 

400 

"MINES"  uses  registers  30  through  52  to  store  the  values  described  in 
Table  E2.  The  program  sets  general  purpose  flag  "01”  if  work  is  to  be  done  at 
night . 


Table  E3  describes  the  general  function  of  each  part  of  the  program,  by 
label.  Figure  E3,  a  label  wiring  diagran,  shows  how  the  different  parts  of 
the  program  relate  to  each  other.  A  circular  loop  on  the  diagram  indicates  a 


3  Mine /Countermine  Operations  at  the  Company  Level.  FM  20-32  (HQ,  DA,  November 

1976). 
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return  to  the  same  label.  A  two-headed  arrow  pointing  to  and  from  another 
label  indicates  the  progran  executes  that  part  as  a  local  subroutine,  then 
returns  to  the  main  program.  Global  subroutines,  used  by  all  the  major  appli 
cation  programs  on  the  MILENG1/UTXL  module,  are  not  shown  on  the  wiring 
diagram,  but  are  described  separately  in  Appendix  G. 

Figure  E4  presents  a  detailed  flowchart  of  the  "MINES"  progran,  and  Fig¬ 
ure  E5  lists  the  program  steps. 


User  executes  "MINES" 

1 

User  enters  mine  densities 

User  enters  IOE  cluster  composition 
...  indict,  i,  i,  ...  ..  c  .. 

I 

User  inputs  minefield  length  in  meters 
User  inputs  minefield  depth  in  meters 
Program  computes  logistical  requirements 

I 

User  retrieves  results 


Figure  El,  "MINES"  progran  sequence  of  events. 


XEQ 

"MINES" 

XEQ 

"MINES 

ENTER  MINE  DENSITY: 
#AT/M-? 

1.00 

RUN 

ENTER  MINE  DENSITY: 
#AT/M*? 

3.00 

RUN 

#APF/M“? 

1.00 

RUN 

#APF/M»? 

4.00 

RUN 

#AFB/M«? 

2.00 

RUN 

#APB/M»? 

8.00 

RUN 

IOE  CLUSTER  COMPOSITION: 

IOE  CLUSTER  COMPOSITION: 

#AT“? 

1. 

RUN 

#AT»? 

1. 

RUN 

#APF-7 

1. 

RUN 

0APF-? 

2. 

RUN 

IAPB-? 

1. 

RUN 

#APB«? 

2. 

RUN 

DO  AT  NIGHT( Y/N)? 

Y 

RUN 

DO  AT  NIGHT( Y/N)? 

N 

RUN 

FIELD  LENGTH, (M)-? 

400. 

RUN 

FIELD  LENGTH, (M)-? 

400. 

RUN 

FIELD  DEPTH, (M)-? 

100. 

RUN 

FIELD  DEPTH, (M)=? 

400. 

RUN 

TOTAL  MINES: 

IAT-490. 

#APF«490. 

#APB-930. 

IOE  MINES: 

#AT*45 . 

IAPF-45 . 

#APB-45. 

MMF  MINES: 
lAT-400 . 

#APF*400 . 

#APB«800. 

#IOE  CLUSTERS-45. 
#STRIPS«3. 

2-STRAND, 4- SIDE  FENCE: 
#WIRE(RL)-9. 

#SIGNS , PICKETS* 109 • 

# SANDBAGS -1 , 350 . 
MANHOURS-436 . 

END  PROGRAM 


TOTAL  MINES: 

#AT«1,370. 

0APF=*1,859. 

#APB=*3,619. 

IOE  MINES: 

#AT*45 . 

#APF-90. 

IAPB-90. 

MMF  MINES: 

#AT- 1,200. 

#APF«1 , 600 . 

#APB»3,200. 

#IOE  CLUSTERS“45 . 
#STRIPS«9. 

2-STRAND, 4-SIDE  FENCE: 
#WIRE(RL)«13. 
#SIGNS,PICKETS=»165 . 
#SANDBAGS-3,780. 
MANHOURS-962 . 

END  PROGRAM 


Figure  E2.  "MINES"  program  examples  --  with  printer 
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Figure  E4.  "MINES"  pro gran  —  detailed  flowchart 


Figure  E4.  (Cont'd) 


Figure  E4.  (Cont'd). 
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01+LBL  "MINES" 
02  53 

03  XEQ  "*S" 

04  XEQ  ”*F" 

05#LBL  01 
06  30.052 
07  XEQ  "*C” 

OStLBL  09 

09  "ENTER  MINE  DENS" 

10  >ITY:" 

11  XEQ  "*D” 

12  30 

13  STO  24 

14  FIX  2 

15  "#AT/M" 

16  4 

17  ENTER t 

18  0 

19  XEQ  ”*I” 

20  "#APF/M" 

21  16 

22  ENTERt 

23  0 

24  XEQ  ”*I” 

25  "#APB/M" 

26  16 

27  ENTERt 

28  0 

29  XEQ  "*I" 
309LBL  11 

31  "IOE  CLUSTER  COM" 
32  > POSITION:" 

33  XEQ  ”*D" 

34  33 

35  STO  24 

36  FIX  0 

37  "#AT" 

38  1 

39  ENTER t 

40  0 

41  XEQ  "*I" 

42  "#APF“ 

43  5 

44  ENTERt 

45  0 

46  XEQ  ”*I" 

47  "#APB" 

48  5 


49 

ENTERt 

98 

STO 

41 

50 

0 

99 

RCL 

38 

51 

XEQ 

"*I" 

100 

RCL 

33 

52 

RCL 

35 

101 

* 

53 

RCL 

33 

102 

STO 

42 

54 

+ 

103 

RCL 

38 

55 

RCL 

34 

104 

RCL 

34 

56 

+ 

105 

* 

57 

5 

106 

STO 

43 

58 

X<¥? 

107 

RCL 

38 

59 

GTO 

12 

108 

RCL 

35 

"DO  AT  NIGHT" 

109 

* 

61 

XEQ 

110 

STO 

44 

62 

FS? 

10 

111 

RCL 

39 

63 

SF  01 

112 

RCL 

42 

64 

GTO 

13 

113 

+ 

114 

1.1 

659LBL 

12 

115 

* 

IN  CLUSTER,  MAX” 

116 

XEQ 

”*R' 

"1-  #MINES*5:” 

117 

STO 

45 

68 

XEQ 

"*D” 

118 

RCL 

40 

69 

GTO 

11 

119 

RCL 

43 

120 

+ 

70tLBL 

13 

121 

1.1 

FIELD  LENGTH, (M" 

122 

* 

72 

123 

XEQ 

”*R’ 

73 

5000 

124 

STO 

46 

74 

ENTERt 

125 

RCL 

41 

75 

0 

126 

RCL 

44 

76 

XEQ 

"*I” 

127 

+ 

77 

RCL 

36 

128 

1.1 

78 

9 

129 

* 

79 

/ 

130 

XEQ 

”*R' 

80 

XEQ 

”*R" 

131 

STO 

47 

81 

STO 

38 

132 

RCL 

30 

FIELD  DEPTH, (M)" 

133 

RCL 

31 

83 

999 

134 

+ 

84 

ENTERt 

135 

RCL 

32 

85 

0 

136 

+ 

86 

XEQ 

"*I" 

137 

.6 

87 

RCL 

36 

138 

* 

88 

RCL 

30 

139 

XEQ 

”*R' 

89 

* 

140 

STO 

48 

90 

STO 

39 

141 

RCL 

30 

91 

RCL 

36 

142 

3 

92 

RCL 

31 

143 

* 

93 

* 

144 

STO 

49 

94 

STO 

40 

145 

RCL 

46 

95 

RCL 

36 

146 

- 

96 

RCL 

32 

147 

X>0? 

97 

* 

148 

XEQ 

15 

Figure  E5.  "MINES”  program  listing. 
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149  RCL 

150  9 

151  * 

152  3 

153  + 

154  RCL 

155  * 

156  STO 

157  RCL 

158  RCL 

159  + 

160  4 

161  * 

162  320 

163  + 

164  1.4 

165  * 

166  STO 

167  400 

168  / 

169  XEQ 

170  STO 

171  RCL 

172  30 
173./ 

174  XEQ 

175  STO 

176  RCL 

177  4 

178  / 

179  RCL 

180  8 
181  / 
182  + 

183  RCL 

184  16 

185  / 

186  + 

187  1.2 

188  * 

189  FS? 

190  XEQ 

191  XEQ 

192  STO 

193  GTO 

1949LBL 

195  RCL 

196  STO 

197  RTN 


48 


38 

49  204 

36 

37 


51 

215 

"*R” 

50 

51 


"*R” 

51 

45 

•226 

46 


47 


01  237 

17 

"*R" 

52 

19 

15  243 

49 

48 


198# LBL  17 

199  1.5 

200  * 

201  RTN 

2029LBL  19 
203  ADV 
TOTAL  MINES:" 

205  XEQ  "*D" 

206  "it AT' 

207  RCL  45 

208  XEQ  " *0 " 

209  ”#APF" 

210  RCL  46 

211  XEQ  "*0" 

212  "it  APE" 

213  RCL  47 

214  XEQ  "*0" 

" IOE  MINES:" 

216  XEQ  "*D" 

217  "it AT" 

218  RCL  42 

219  XEQ  "*0" 

220  " it APF" 

221  RCL  43 

222  XEQ  "*0" 

223  "//APB" 

224  RCL  44 

225  XEQ  "*0" 
"MMF  MINES:" 

227  XEQ  "*D" 

228  "//AT" 

229  RCL  39 

230  XEQ  "*0" 

231  "//APF" 

232  RCL  40 

233  XEQ  "*0" 

234  "//APB" 

235  RCL  41 

236  XEQ  "*0” 
"itlOE  CLUSTERS" 

238  RCL  38 

239  XEQ  "*0" 
240  "^STRIPS" 

241  RCL  48 

242  XEQ  "*0” 
"2-STRAND, 4-SIDE 
244  FENCE:" 

245  XEQ  "*D" 


Figure  E5.  (Cont'd). 


246  "#WIRE(RL>" 

247  RCL  50 

248  XEQ  "*0" 

249  "//SIGNS, PICKETS" 

250  RCL  51 

251  XEQ  "*0" 

252  "//SANDBAGS" 

253  RCL  49 

254  XEQ  "*0" 

255  “MANHOURS" 

256  RCL  52 

257  XEQ  "*0" 

258  GTO  79 

2599LBL  79 

260  XEQ  ”*F" 

261  XEQ  "*P" 

262  STOP 

263  GTO  01 

264  "2/2/82" 

265  .END. 
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Table  El 


"MINES"  Program  Example  —  Without  Printer 


Step  Press  Resulting  Display 


1 

XEQ 

ALPHA 

MINES 

ALPHA 

ENTER  MINE  DENSITY: 

2 

R/S 

*  AT/M  »  ? 

3 

3  R/S 

#  APF/M  *=  ? 

4 

4  R/S 

#  APB/M  *=  ? 

5 

8  R/S 

10 E  CLUSTER  COMPOSITION 

6 

R/S 

#  AT  *=  ? 

7 

1  R/S 

#  APF  “  ? 

8 

2  R/S 

*  APB  =>  ? 

9 

2  R/S 

DO  AT  NIGHT  (Y/N)? 

10 

N  R/S 

FIELD  LENGTH,  (M)  »  ? 

11 

400  R/S 

FIELD  DEPTH,  (M)  -  ? 

12 

400  R/S 

TOTAL  MINES: 

13 

R/S 

#  AT  =  1,370. 

14 

R/S 

#  APF  =  1,859. 

15 

R/S 

#  APB  =  3  ,619. 

16 

R/S 

10 E  MINES: 

17 

R/S 

*  AT  =  45. 

18 

R/S 

*  APF  =  90 . 

19 

R/S 

*  APB  «  90. 

20 

R/S 

MMF  MINES: 

21 

R/S 

#  AT  =  1,200. 

22 

R/S 

#  APF  =  1,600. 

23 

R/S 

#  APB  ■=  3,200. 

24 

R/S 

#  10 E  CLUSTERS  *  45. 

25 

R/S 

#  STRIPS  *  9. 

26 

R/S 

2-STRAND,  4-SIDE  FENCE: 

27 

R/S 

#  WIRE  (RL)  -  13. 

28 

R/S 

#  SIGNS,  PICKETS  '  165. 

29 

R/S 

#  SANDBAGS  -  3,780. 

30 

R/S 

MANHOURS  =  962. 

31 

R/S 

BID  PROGRAM 
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Table  E2 


Register 

Humber 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


"MINES"  Program  —  Special  Register  Uses 

Register  Contents 
Antitank  (AT)  mine  density 

Antipersonnel  fragmentation  (APF )  mine  density 

Antipersonnel  blast  (APB)  mine  density 

AT  IOE  representative  cluster  value 

APF  IOE  representative  cluster  value 

APB  IOE  representative  cluster  value 

Length  of  minefield  front  in  meters 

Depth  of  minefield  in  meters 

Approximate  number  of  IOE  clusters 

Number  of  AT  in  main  minefield 

Number  of  APF  in  main  minefield 

Number  of  APB  in  main  minefield 

Number  of  AT  mines  in  IOE 

Number  of  APF  mines  in  IOE 

Number  of  APB  mines  in  IOE 

Total  number  of  AT  mines  in  minefield 

Total  number  of  APF  mines  in  minefield 

Total  number  of  APB  mines  in  minefield 

Number  [(a  +  b  +  c)  (0.6)]  of  strips  required 

Number  (3a)  of  strips  required  (initial) 

(or)  number  of  sandbags  required  (final) 

Reels  of  barbed  vire  needed 

Meters  of  barbed  wire  needed  (initial) 

(or)  number  of  signs  and  pickets  (final) 

Number  of  man-hours  required 
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Table  E3 


Label 

MIMES 

01 

09 

11 

12 

13 

15 

17 

19 

79 


"MINES"  Program  —  Functions,  By  Label 
Purpose 

Marks  beginning  of  program;  checks  size  allocation  and  clear  flags 
Clears  register 

Inputs  main  minefield  densities 
Inputs  IOE  cluster  composition 
Presents  error  message 

Inputs  field  length  and  depth  in  meters;  computes  logistical 
requirements 

Intermediate  computation 
Creates  night  work  factor 

Outputs  logistical  requirements  for  a  minefield 
Displays  program  end  and  clears  flags 


APPENDIX  F: 

"WIRE"  PROGRAM  DETAILS 


This  appendix  provides  detailed  information  about  the  "WIRE"  progran. 
Figure  Fl  shows  the  typical  sequence  of  events  and  the  options  that  a  user 
encounters  when  executing  the  program.  Table  Fl  is  an  example  of  the  specific 
steps  that  must  be  followed  to  solve  a  problem  when  one  uses  the  HP-41  calcu¬ 
lator  without  a  printer  attached.  The  table  shows  the  effective  length,  the 
number  of  3C0-m  sections,  the  amount  of  material,  the  number  of  man-hours,  and 
the  number  of  truckloads  required  to  construct  a  triple  standard  concertina 
obstacle.  The  entanglement  is  for  protecting  an  area  on  the  forward  edge  of 
the  battle  area  (FEBA)  which  has  100  m  of  actual  front.  Only  one  belt  of  wire 
is  to  be  used.  The  construction  is  done  at  night  with  experienced  troops. 

"WIRE"  presents  the  user  with  two  menus  —  wire  use  and  barrier  type. 

The  order  or  the  first  menu  is  "tactical,"  "protective,"  then  "supplemental." 
The  second  menu  order  is  "double  apron  4+2,"  "double  apron  6+3,"  "high  wire," 
"low  wire,"  "4-wire  fence,"  "concertina,  3-ST,"  and  "GPBTO"  (General  purpose 
barbed  tape  obstacle).  In  step  6  of  Table  Fl,  the  user  has  to  press  the  R/S 
key  to  restart  the  program  after  only  part  of  the  message  has  been  displayed. 
If  a  printer  were  attached  and  set  to  the  "NORM"  printer  mode,  the  program 
would  advance  automatically,  and  steps  15  through  23  would  be  executed 
automatically.  Figure  F2  shows  two  examples  of  using  "WIRE"  program  with  a 
printer  attached. 

Abbreviations  used  in  "WIRE"  are: 

Symbol  Meaning 


DBL. 

EFF.LEN. 

FEBA 

GPBTO 

K 

MED 

T 

(Y/N) 

3-STD 

# 


Double 

Effective  Length 

Forward  Edge  of  the  Battle  Area 

General  Purpose  Barbed  Tape  Obstacle 

Meter(s) 

Medium 
Ton(s ) 

(Yes/No) 

Triple  Standard 
Number 


Five  sets  of  operating  limits  for  input  variables  are  in  the  program: 


Variable 

Units 

Minim  jm 

Maximum 

Camp  perimeter 

Meters 

0 

50,000 

Length  of  front 

Meters 

0 

50,000 

Unit  depth 

Meters 

0 

50,000 

Effective  length 

Meters 

0 

2,250,000 

Number  of  belts 

Each 

1 

9 
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Algorithms  used  in  the  program  were 
FM  5—15 Critical  assumptions  and 


taken  from  FM  5-34  (pp  105-109),  and  from 
formulas  are  as  follows: 


1.  To  determine  the  effective  length  for  use  on  the  FEBA: 


a.  Tactical  wire:  (front  length)x(l ,25)x(number  of  belts) 

b.  Protective  wire:  (front  length)x(5)  x  (number  of  belts) 

c.  Supplementary  wire: 

(1)  Forward  of  FEBA,  (front  length)x(l .25)x(number  of  belts) 

(2)  Rear  of  FEBA,  (unit  depth)x(2.5)x(number  of  belts). 


2.  To  determine  the  effective  length  for  use  in  a  base  camp: 


a.  Tactical  wire:  (mean  per imeter )x(l ,25)x(number  of  belts) 

b.  Protective  wire:  (perimeter)x(1.10)x(number  of  belts) 

c.  Supplementary  wire:  (mean  per imeter)x(l .25)x(number  of  belts). 

3.  To  determine  material  and  labor  for  300-m  sections  of  various  wire 
entanglements,  requirements  were  taken  from  Table  4-3,  FM  5-34. 


"WIRE"  use6  registers  30  through  43  to  store  the  values  described  in 
Table  F2.  If  barbed  tape,  experienced  troops,  or  driven  pickets  are  used,  or 
if  the  work  is  done  at  night,  the  program  sets  the  appropriate  general  purpose 
flags  "01"  through  "04,"  respectively.  Flag  "05"  is  set  if  triple-standard 
concertina  or  GPBTO  barriers  are  used. 

Table  F3  describes  the  general  function  of  each  part  of  the  program,  by 
label.  Figure  F3,  a  label  wiring  diagram,  shows  how  the  different  parts  of 
the  program  relate  to  each  other.  A  circular  loop  on  the  diagram  indicates  a 
return  to  the  same  label.  A  two-headed  arrow  pointing  to  and  from  a  subrou¬ 
tine  indicates  that  the  program  executes  it  as  a  local  subroutine,  then 
returns  to  the  main  program.  Global  subroutines,  used  by  all  the  major  appli¬ 
cation  programs  on  the  MILENGl/UTIL  module,  are  not  shown  on  the  wiring 
diagram,  but  are  described  separately  in  Appendix  G. 

Figure  F4  presents  a  detailed  flowchart  of  the  "WIRE"  program,  and  Figure 
F5  lists  the  program  steps. 


I 


Field  Fortifications.  FM  5-15  (HQ,  DA,  June  1972),  pp  6-10,  6-22,  and  6-23.  | 

r 

t 


125 


User  executes  "WIRE" 


Is  effective  length  known? 


No 


Yes 


User  selects  type 
of  troop  development 


(Base  camp) 


User  enters 
Effective  length  in 
meters 


(FEBA) 


User  enters  camp 
perimeter  in  meters 


User  enters  length  of 
front  in  meters 


User  selects  how  wire 


is  to  be  used 
I _ 


User  enters  unit  depth  in 
meters  if  wire  use  is 


supplemental:  FEBA,  REAR 


Program  computes  effective 


length  in  meters 


User  selects  special  conditions  from  menu 

1 

User  selects  barrier  type  from  menu 

i 

Program  computes  logistical  requirements 

I 

User  retrieves  results 


Figure  FI,  "WIRE"  program  sequence  of  events 


XEQ  "WIRE" 


XEQ  "WIRE" 


KNOW. EFF.LEN.( Y/N)? 

KNOW. EFF.LEN.( Y/N)? 

Y 

RUN 

N 

RUN 

EFF.LEN.(M)-? 

ON,FEBA( Y/N)? 

1,500. 

RUN 

Y 

RUN 

USE  BARBED  TAPE( Y/N)? 

FRONT  LENGTH, (M)-? 

N 

RUN 

100. 

RUN 

EXPERIENCED  TROOPS (Y/N)? 

#BELTS-? 

N 

RUN 

1. 

RUN 

USE  DRIVEN  PICKETS( Y/N) ? 

WIRE  USE: 

Y 

RUN 

TACTICAL(Y/N)? 

DO  AT  NIGHT( Y/N)? 

Y 

RUN 

N 

RUN 

EFF.LEN.M-125. 

BARRIER  TYPE: 

USE  BARBED  TAPE( Y/N)? 

DBL  APRON  4+2 (Y/N)? 

N 

RUN 

N 

RUN 

EXPERIENCED  TROOPS (Y/N)? 

DBL  APRON  6+3( Y/N)? 

Y 

RUN 

N 

RUN 

USE  DRIVEN  PICKETS( Y/N)? 

HIGH  WIRE( Y/N)? 

N 

RUN 

N 

RUN 

DO  AT  NIGHT( Y/N)? 

LOW  WIRE( Y/N)? 

Y 

RUN 

N 

RUN 

BARRIER  TYPE: 

4-WIRE  FENCE(Y/N)? 

DBL  APRON  4+2 (Y/N)? 

N 

RUN 

Y 

RUN 

CONCERTINA, 3-STD( Y/N) ? 

Y 

RUN 

300M  SECTIONS-O.4 

' 

PICKETS, LONG-42. 

300M  SECT IONS- 5.0 

PICKETS,  SHORT-83. 

PICKETS, LONG-800. 

#WIRE  REELS: 

PICKETS, SHORT-20. 

USING  U-PICKETS-6. 

#WIRE  REELS: 

USING  PICKET, SCREW-6. 

USING  U-PICKETS-15. 

USING  PICKET, WOOD-7. 

USING  PICKET, SCREW-15. 

MANHOURS-25 . 

USING  PICKET, WOOD-15. 

#2.5TL0ADS-0.3 

ROLL, CONCERTINA-295 . 

END  PROGRAM 

STAPLES- I , 585 . 
MANHOURS- 150. 
#2.5TLOADS-5.4 
END  PROGRAM 


Figure  F2.  "WIRE"  program  examples  —  with  printer. 
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WIRE 


(EFF.  LEN.  KNOWN?) 


(BARRIER  TYPE  MENU) 


r~ 

(DBL.  AP.  4+2) 
41 

i 

r- 

(DBL.  AP.  6+3) 

43 

• 

1 

(HIGH  WIRE) 

45 

l 

I 

(LOW  WIRE) 

47 

l 

\  1 

(4-WIRE  FENCE)  (CONCERTINA) 

49  51 

_ L _ _  1 _ 

"1 

(GPBTO) 

53 

l 

(86.87.88,89) 

1 

55 

♦ 

r 

(86,87,88,89) 

(OUTPUT) 


61 

I 


LBL  31 

"EFF.  LEN.  <M)  =  ?" 
STORE  IN  Rj0 

(119-126) 


PERIMETER.  (M)  =  ?"  | 
STORE  IN  R31 
(23-30) 

X 

LBL  81 

"#  BELTS  =  ?" 
STORE  IN  R3j 
(474-482) 


LBL  05 -*-*82 
"WIRE  USE:" 

(483-485) 

< 

"TACTICAL(Y/N)?">- 

^^(486-488)/^ 

Jno 

^^LBLBS^^ 

<S 

PROTECTIVE(Y/N)?"> 

^VM89- 

Jno 

NO  // 

- 

UPPLEMENTAL(Y/N)7> 
\.  (39-43) 

YES 


YES 


07 


YES, 


'  —  .  .  .  . . 

LBL  11 

"FRONT  LENGTH.  (M)  =  7" 
STORE  IN  R, ,  (5g  gg) 

LBL  81 

"  #BELTS -  V 
STORE  IN  Rj j 
(474  482) 

ti 

LBL  13-*H32 
"WIRE  USE  " 
(483  485) 


Figure  F4.  "WIRE"  program  —  detailed  flowchart 


Figure  F4.  (Cont'd). 
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OlfLBL  "WIRE" 
02  44 

03  XEQ  "*S" 

04  XEQ  "*F" 

05?LBL  01 
06  30.043 
07  XEQ  "*C" 

08  FIX  0 

09  "KNOW.EFF.LEN." 

10  XEQ  ”*Y" 

11  FS?  10 

12  GTO  31 

13?LBL  02 
14  "ON. FEBA" 

15  XEQ  "*Y" 

16  FS?  10 

17  GTO  11 

18  "FOR  BASE  CAMP” 

19  XEQ  "*Y" 

20  FS?  10 

21  GTO  03 

22  GTO  02 

23?LBL  03 

24  31 

25  STO  24 

26  "PERIMETER, (M)" 

27  50000 

28  ENTER t 

29  0 

30  XEQ  "*I" 

31  XEQ  81 

32+LBL  05 

33  XEQ  82 

34  FS?  10 

35  GTO  09 

36  XEQ  83 

37  FS?  10 

38  GTO  07 
39  "SUPLEMENTAL" 

40  XEQ  "*Y" 

41  FS?  10 

42  GTO  09 

43  GTO  05 


444LBL  07 

45  RCL  31 

46  1.1 

47  * 

48  RCL  32 

49  * 

50  GTO  21 

514LBL  09 

52  RCL  31 

53  1.25 

54  * 

55  RCL  32 

56  * 

57  GTO  21 

584LBL  11 

59  31 

60  STO  24 

61  "FRONT  LENGTH, (M" 

63  »" 

64  50000 

64  ENTER t 

65  0 

66  XEQ  "*I" 

67  XEQ  81 

684LBL  13 

69  XEQ  82 

70  FS?  10 

71  GTO  15 

72  XEQ  83 

73  FS?  10 

74  GTO  17 
75  "SUPPLMENTAL: " 

76  XEQ  "*D" 

77  "FEBA, FORWARD" 

78  XEQ  "*Y" 

79  FS?  10 

80  GTO  15 

81  "FEBA, REAR" 

82  XEQ  "*Y" 

83  FS?  10 

84  GTO  19 

85  GTO  13 


869LBL  15 

87  RCL  31 

88  RCL  32 

89  * 

90  1.25 


91 

* 

92 

GTO 

21 

93?LBL 

17 

94 

RCL 

31 

95 

RCL 

32 

96 

* 

97 

5 

98 

* 

99 

GTO 

21 

lOOfLBL 

19 

101 

30 

102 

STO 

24 

UNIT 

DEPTH, (M) 

104 

5000 

105 

ENTER  t 

106 

0 

107 

XEQ 

••AX- 

108 

RCL 

30 

109 

RCL 

32 

110 

* 

111 

2.5 

112 

* 

1139LBL  21 

114  XEQ  "*R" 

115  STO  30 
116  "EFF.LEN.M" 

117  XEQ  "*0" 

118  GTO  33 

119?LBL  31 

120  30 

121  STO  24 
122  "EFF . LEN. (M) " 

123  2250000 

124  ENTER? 

125  0 

126  XEQ  "*I" 


Figure  F5 


"WIRE"  program  listing 


1279LBL  33 

128  RCL  30 

129  300 

130  / 

131  STO  31 

132  0 

133  STO  32 

134  "USE  BARBED  TAPE" 

135  XEQ  "*Y" 

136  FS?  10 

137  SF  01 

138  "EXPERIENCED  TRO" 

139  "POPS” 

140  XEQ  "*Y” 

141  FS?  10 

142  SF  02 

143  "USE  DRIVEN  PICK" 

144  TETS” 

145  XEQ  "*Y" 

146  FS?  10 

147  SF  03 

14 8  "DO  AT  NIGHT" 

149  XEQ  "*Y" 

150  FS?  10 

151  SF  04 

1529LBL  35 
153  "BARRIER  TYPE:" 

154  XEQ  ”*D~ 

155  "DBL  APRON  4+2” 

156  XEQ  ”*Y" 

157  FS?  10 

158  GTO  41 
159  "DBL  APRON  6+3" 

160  XEQ  "*Y" 

161  FS?  10 

162  GTO  43 
163  "HIGH  WIRE" 

164  XEQ  "*Y" 

165  FS?  10 

166  GTO  45 
167  "LOW  WIRE" 

168  XEQ  "*Y" 

169  FS?  10 

170  GTO  47 
171  "4-WIRE  FENCE" 

172  XEQ  "*Y" 

173  FS?  10 

174  GTO  49 


175  "CONCERTINA, 3-ST" 

176  "HD" 

177  XEQ  "*Y" 

178  FS?  10 

179  GTO  51 

180  "GPBTO" 

181  XEQ  "*Y" 

182  FS?  10 

183  GTO  53 

184  GTO  35 

1859LBL  41 

186  RCL  31 

187  100 

188  * 

189  STO  32 

190  2 

191  * 

192  STO  34 

193  RCL  31 

194  14 

195  * 

196  STO  35 

197  RCL  31 

198  15 

199  * 

200  STO  36 

201  RCL  31 

202  16 

203  * 

204  STO  37 

205  RCL  31 

206  19 

207  * 

208  STO  38 

209  RCL  31 

210  59 

211  * 

212  XEQ  86 

213  4.6 

214  FS?  01 

215  3.5 

216  GTO  55 

2179LBL  '3 

218  RCL  31 

219  66 

220  * 


221  STO  32 

222  2 

223  * 

224  STO  34 

225  RCL  31 

226  13 

227  * 

228  STO  35 

229  RCL  31 

230  15 

231  * 

232  STO  36 

233  RCL  31 

234  17 

235  * 

236  STO  37 

237  RCL  31 

238  18 

239  * 

240  STO  38 

241  RCL  31 

242  49 

243  * 

244  XEQ  86 

245  3.6 

246  FS?  01 

247  2.6 

248  GTO  55 

2499LBL  45 

250  RCL  31 

251  198 

252  * 

253  STO  32 

254  RCL  31 

255  17 

256  * 

257  STO  35 

258  RCL  31 

259  19 

260  * 

261  STO  36 

262  RCL  31 

263  21 

264  * 

265  STO  37 

266  RCL  31 

267  24 

268  * 


Figure  F5.  (Cont'd). 
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269  STO  38 

319 

STO  36 

3689LBL  53 

270  RCL  31 

320 

RCL  31 

369  RCL  31 

271  79 

321 

7 

370  8 

272  * 

322 

* 

371  * 

273  XEQ  86 

323 

STO  37 

372  STO  41 

274  5.3 

324 

STO  38 

373  RCL  31 

275  FS?  01 

325 

RCL  31 

374  SF  05 

276  4 

326 

20 

375  XEQ  86 

277  GTO  55 

327 

* 

376  2.7 

328 

XEQ  86 

2789LBL  47 

329 

2.2 

3779LBL  55 

279  RCL  31 

330 

FS?  01 

378  RCL  30 

280  100 

331 

1 .8 

379  * 

281  * 

332 

GTO  55 

380  2268 

282  STO  33 

381  / 

283  2 

3334LBL  51 

382  STO  43 

284  * 

334 

RCL  31 

285  STO  34 

335 

160 

3839LBL  61 

286  RCL  31 

336 

* 

834  ADV 

287  11 

337 

STO  32 

385  FIX  1 

288  * 

338 

40 

386 

"300M  SECTIONS" 

289  STO  35 

339 

/ 

387  RCL  31 

290  STO  36 

340 

STO  34 

388  XEQ  "*0" 

291  STO  37 

341 

RCL  31 

389  FIX  0 

292  RCL  31 

342 

3 

390  RCL  32 

293  15 

343 

* 

391  X*0? 

294  * 

344 

STO  35 

392  XEQ  63 

295  STO  38 

345 

STO  36 

393  RCL  33 

296  RCL  31 

346 

STO  37 

394  X#0? 

297  49 

347 

RCL  31 

395  XEQ  65 

298  * 

348 

4 

396  RCL  34 

299  XEQ  86 

349 

* 

397  X*0? 

300  3.6 

350 

STO  38 

398  XEQ  67 

301  FS?  01 

351 

RCL  31 

399  FS?  01 

302  2.8 

352 

59 

400  GTO  71 

303  GTO  55 

353 

* 

401  RCL  36 

354 

STO  39 

402  X*0? 

3049LBL  49 

355 

RCL  31 

403  XEQ  69 

305  RCL  31 

356 

317 

404  GTO  72 

306  100 

357 

* 

307  * 

358 

STO  40 

4059LBL  63 

308  STO  32 

359 

RCL  31 

406 

"PICKETS, LONG" 

309  50 

360 

30 

407  XEQ  "*0" 

310  / 

361 

* 

408  RTN 

311  STO  34 

362 

SF  05 

312  RCL  31 

363 

XEQ  86 

4099LBL  65 

313  5 

364 

8.2 

410  " 

PICKETS, MED." 

314  * 

365 

FS?  01 

411  XEQ  "*0” 

315  STO  35 

366 

7.3 

412  RTN 

316  RCL  31 

367 

GTO  55 

317  6 

318  * 

Figure  F5.  (Cont'd). 
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461+LBL  75 

5069LBL  88 

4139LBL  67 

462  "STAPLES" 

507  FS?  05 

414  "PICKETS,  SHORT” 

463  XEQ  "*0" 

508  RTN 

415  XEQ  "*0" 

464  RTN 

509  1.2 

416  RTN 

510  ST*  42 

4654LBL  77 

511  RTN 

4174LBL  69 

466  "GPBTO  UNITS" 

418  #WIR£  REELS:" 

467  XEQ  "*0“ 

512fLBL  89 

419  XEQ  "*D" 

468  RTN 

513  1.5 

420  "USING  U-PICKETS” 

514  ST*  42 

421  RCL  36 

469»LBL  79 

515  RTN 

422  XEQ  "*0" 

470  XEQ  "*P" 

516  "2/2/82 

423  "USING  PICKET, SC" 

471  XEQ  ”*F" 

517  .END. 

424  >REW" 

472  STOP 

425  RCL  35 

426  XEQ  "*0' 

473  GTO  01 

427  "USING  PICKET, WO" 

4746LBL  81 

428  >0D" 

475  32 

429  RCL  37 

476  STO  24 

430  XEQ  "*0" 

477  "IBELTS" 

431  RTN 

478  9 

479  ENTER t 

4324LBL  71 

480  1 

433  RCL  38 

481  XEQ  ”*I” 

434  X-0? 

435  GTO  72 

482  RTN 

436  "CASE, BARBED  TAP" 

4834LBL  82 

437  >E" 

484  "WIRE  USE:" 

438  "XEQ  ”*0" 

485  XEQ  "*D" 

486  "TACTICAL” 

4399LBL  72 

487  XEQ  "*T" 

440  RCL  39 

441  X#0? 

488  RTN 

442  XEQ  73 

489#LBL  83 

443  RCL  40 

490  "PROTECTIVE” 

444  X*0? 

491  XEQ  "*T" 

445  XEQ  75 

445  RCL  41 

492  RTN 

447  X#0? 

4936LBL  86 

448  XEQ  77 

494  STO  42 

449  "MANHOURS" 

495  FS7  02 

450  RCL  42 

496  XEQ  87 

451  XEQ  "*0" 

497  FS?  03 

452  FIX  1 

498  XEQ  88 

453  "#2.5tLOADS" 

499  FS?  04 

454  RCL  43 

500  XEQ  89 

455  XEQ  "*0" 

456  GTO  79 

501  RTN 

457#LBL  73 

5029LBL  87 

458  "ROLL, CONCERTINA" 

503  .67 

459  XEQ  "*0" 

504  ST*  42 

460  RTN 

505  RTN 

Figure  F5.  (Cont'd). 
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Table  Fl 


"WIRE"  Program  Example  —  Without  Printer 


Step  Press  Resulting  Display 


1 

XEQ 

ALPHA 

WIRE 

ALPHA 

KNOW.  EFF.  LEN.  (Y/N)? 

2 

N  R/S 

ON.  FEBA  (Y/N)? 

3 

Y  R/S 

FRONT  LENGTH,  (M)  =  ? 

4 

100  R/S. 

#  BELTS  =  ? 

5 

1  R/S. 

WIRE  USE: 

6 

R/S 

TACTICAL  (Y/N)? 

7 

Y  R/S. 

EFF.  LEN,  M  =  125. 

8 

R/S 

USE  BARBED  TAPE  (Y/N)? 

9 

N  R/S 

EXPERIENCED  TROOPS  (Y/N)? 

10 

Y  R/S 

USE  DRIVEN  PICKETS  (Y/N)? 

11 

N  R/S 

DO  AT  NIGHT  (Y/N)? 

12 

Y  R/S 

BARRIER  TYPE: 

13 

R/S 

DBL  APRON  4+2  (Y/N)? 

14 

Y  R/S 

300M  SECTIONS  =0.4 

15 

R/S 

PICKETS,  LONG  =  42. 

16 

R/S 

PICKETS,  SHORT  =  83. 

17 

R/S 

#  WIRE  REELS: 

18 

R/S 

USING  U-PICKETS  =  6. 

19 

R/S 

USING  PICKET,  SCREW  *  6. 

20 

R/S 

USING  PICKET,  WOOD  =  7. 

21 

R/S 

MANHOURS  =  25. 

22 

R/S 

#  2.5  LOADS  =0.3 

23 

R/S 

END  PROGRAM 
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Register 

Number 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 


Table  F2 

"WIRE  Program  —  Special  Register  Usee 

Register  Contents 

Unit  depth  in  meters  (initial) 

(or)  effective  length  in  meters  (final) 

Perimeter  of  camp  in  meters  (intermediate) 

(or)  length  of  front  in  meters  (intermediate) 

(or)  number  of  300-meter  sections  (final) 

Number  of  belts  (intermediate) 

(or)  number  of  long  pickets  needed  (final) 

Number  of  medium  pickets  needed 

Number  of  short  pickets  needed 

Number  of  barbed  wire  reels  with  screw  pickets  needed 

Number  of  barbed  wire  reels  with  U-shaped  pickets  needed 

Number  of  barbed  wire  reels  with  wood  pickets  needed 

Number  of  barbed  tape  cases  needed 

Rolls  of  concertina  needed 

Number  of  staples  needed 

Number  of  GPBTO  units  needed 

Number  of  man-hours  required 

Number  of  2-1/2-ton  truckloads  needed 


137 


Table  F3 


Label 

Wire 

01 

02 

03 

05 

07 

09 

11 

13 

15 

17 

19 

21 

31 

33 

35 

41 

43 

45 

47 

49 

51 


"WIRE"  Program  —  Functions,  By  Label 
Purpose 

Marks  beginning  of  program;  checks  size  allocation 

Determines  if  effective  length  is  known 

Presents  wire  location  menu 

Inputs  camp  perimeter  in  meter6 

Presents  wire  use  menu  for  base  camp 

Computes  effective  length  when  using  protective  wire  for  base 
camp  defense 

Computes  effective  length  when  using  supplementary  or  tactical 
wire  for  base  camp  defense 

Inputs  length  of  front  in  meters 

Presents  wire  use  menu  for  FEBA  location 

Computes  effective  length  when  using  tactical  or  supplementary 
(forward)  wire  for  FEBA 

Computes  effective  length  when  using  protective  wire  for  FEBA 

Inputs  unit  depth;  computes  effective  length  when  using  supplementary 
(rear)  wire  for  FEBA 

Outputs  effective  length  in  meters 

Inputs  effective  length  in  meters 

Presents  special  conditions  menu 

Presents  barrier  type  menu 

Computes  values  for  double  apron,  four-  and  two-pace  entanglements 

Computes  values  for  double  apron,  six-  and  three-pace  entanglements 

Computes  values  for  a  high  wire  entanglement 

Computes  values  for  a  low  wire  entanglement 

Computes  values  for  a  four-strand  cattle  fence  entanglement 

Computes  values  for  a  triple  standard  concertina  entanglement 
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Table  F3  (Cont'd) 


Label  Purpose 

53  Computes  values  for  a  GP8T0 

55  Computes  number  of  2-1/2-ton  truck  loads  required 

61  Outputs  logistical  requirements 

63  Outputs  number  of  long  pickets  needed 

65  Outputs  number  of  medium  pickets  needed 

67  Outputs  number  of  short  pickets  needed 

69  Outputs  number  of  barbed  wire  reels  needed 

71  Outputs  cases  of  barbed  tape  needed 

72  Outputs  various  logistical  requirements 

73  Outputs  rolls  of  concertina  needed 

75  Outputs  number  of  staples  required 

77  Outputs  number  of  GPBTO  units  needed 

79  Advises  of  program  end  and  clears  flags 

Local  Subroutines 

81  Inputs  number  of  belts 

82  Determines  if  wire  use  is  tactical 

83  Determines  if  wire  use  is  protective 

86  Determines  man-hours  required 

87  Creates /st or es  experienced  troop  factor 

88  Creates /stores  driven  picket  factor  (i.e.,  wood  or  U-shaped  pickets) 

89  Creates/stores  night  work  factor 


139 


APPENDIX  G: 

GLOBAL  UTILITY  SUBROUTINES 


This  appendix  provides  detailed  information  about  each  of  the  global 
utility  subroutines  stored  on  the  MILENG1/UT1L  module.  Figure  G1  is  a  com¬ 
plete  listing  of  these  subroutines.  Note  that  the  global  subroutines  share 
many  of  the  subordinate  subroutines,  and  some  even  use  other  global  subrou¬ 
tines  in  their  entirety. 

The  global  subroutines  are  used  by  each  of  six  main  application  programs 
also  stored  on  MILENGl/UTIL  and  can  be  used  by  field  troops  who  may  write 
their  own  programs.  The  subroutines  can  also  be  used  by  other  military 
engineering  programs  that  may  one  day  be  stored  on  future  ROMs  designed  to  be 
used  only  when  the  MILENGl/UTIL  ROM  is  plugged  in  concurrently.  This  conven¬ 
tion  will  save  a  lot  of  room  on  future  ROMs  and  in  user-developed  programs  — 
room  that  would  otherwise  be  needed  to  store  similar  subroutines.  If  field 
users  adopt  these  subroutines,  personnel  throughout  the  military  engineer  com¬ 
munity  will  find  it  easier  to  understand  each  others'  programs. 


Convent  ions 


The  following  information  on  register  use  applies  to  all  global  utility 
subroutines.  Registers  20  through  29  are  reserved  for  existing  and  future 
global  utility  subroutines.  Registers  20  through  23  are  used  to  store  tem¬ 
porarily  up  to  24  characters  of  a  message  that  will  be  presented  as  a  prompt 
of  some  sort  to  the  program  user.  Each  register  stores  up  to  six  characters. 
Register  24  is  an  indirect  storage  register  for  a  "pointer"  to  show  where  the 
next  input  value  will  be  stored.  Registers  25  and  26  store  the  minimum  and 
maximum  limits,  respectively,  of  the  current  input  variable.  Registers  27 
through  29  are  reserved  for  global  subroutines  that  may  be  developed  in  the 
future. 

The  following  flag  conventions  are  also  used.  Flag  "10"  records  the 
results  of  a  yes/no  question.  The  flag  is  set  if  the  response  is  "Y"  (yes) 
and  cleared  if  the  response  is  "N"  (no).  Flag  "9"  is  programmed  into  subrou¬ 
tine  *1  (numeric  input)  and  *A  (alpha  input)  to  allow  an  answer  already  stored 
somewhere  to  be  used  instead  of  the  user-defined  values  (alpha  or  numeric) 
that  usually  result  when  the  *1  and  *A  subroutines  are  invoked.  Although  this 
option  is  not  used  in  any  of  the  six  main  application  programs  on 
MILENGl/UTIL,  the  potential  to  bypass  the  normal  user-input  route  and  to  use  a 
value  already  in  the  system  is  available  in  these  two  sub-routines.  This 
flexibility  may  be  useful  at  times  in  future  applications. 

Flag  "8"  was  not  used  in  the  MILENGl/UTIL  programs.  It  should  be 
reserved  for  future  use  as  a  "global  use"  flag,  which  "jumps  over"  certain 
parts  of  a  program  that  do  net  have  to  be  executed  each  time  on  repetitive 
runs.  Flags  "0"  through  "7"  are  reserved  for  application  program  use  and  are 
cleared  each  tiue  the  *F  subroutine  is  invoked. 
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Global  Subroutine  *S 

Running  global  subroutine  *S  should  always  be  one  of  the  first  steps  in 
any  program;  this  insures  that  adequate  data  registers  have  been  allocated  for 
the  program  being  executed.  If  enough  registers  are  available,  the  sub¬ 
routine  returns  to  the  main  program  and  continues  execution;  if  not,  the  user 
is  prompted  to  resize  the  memory.  The  program  must  then  be  restarted. 

Before  using  the  subroutine,  the  entry  condition  must  first  be  satisfied. 
The  number  of  data  registers  required  for  the  program  is  first  loaded  into  the 
X  register.  Note  that  this  is  the  actual  number  required,  not  the  number  of 
the  highest  register,  which  would  be  one  less  because  register  00  counts  as 
one  register.  The  user  then  executes  *S. 

The  following  exit  conditions  are  observed:  *S  returns  to  the  calling 
program  if  adequate  registers  are  available;  otherwise,  *S  prompts  the  user  to 
resize.  One  should  assume  that  the  stack  contents  are  destroyed  upon  the 
return. 


A  sample  calling  sequence  follows: 


Program 

Instruction 


Explanation 


61 

XEO  "*S" 


Loads  "61"  into  X  register;  says  that  61  registers 
(0  through  60)  are  required  for  this  particular  program 

Calls  the  *S  subroutine 


xxxxxxxxxx 


Resume  with  main  program 


Figure  G2  is  a  detailed  flowchart  of  *S.  Note  that  *S  also  uses  global  sub¬ 
routines  *0  and  *D. 


Global  Subroutine  *F 

This  subroutine  clears  flags  ”00"  through  "07";  it  should  be  used  to  ini¬ 
tialize  a  program  and  to  "clean  up"  at  the  end  of  each  application  program. 

To  use  the  subroutine,  the  programmer  simply  executes  *F.  *F  returns  to 
the  calling  program  once  flags  "00"  through  "07"  have  been  cleared. 

A  sample  calling  sequence  follows: 

Program 

InstQLc.tigp  Explanation 

XEQ  *F  Calls  the  *F  subroutine 

xxxxx  Resume  with  main  program 

Figure  G3  is  a  detailed  flowchart  of  *F. 


141 


Global  Subroutine  *1 


i 

Global  subroutine  *1  prompts  for  numeric  input;  a  tone  alerts  the  U6rr  ] 

that  input  is  required.  If  the  input  provided  is  not  numeric,  the  user  is 
prompted  again. 

The  input  value  must  pass  a  range  check.  If  the  input  is  out  of  range, 
the  user  is  informed  of  the  maximum  or  minimum  acceptable  value  and 
reprompted.  Global  subroutine  *1  has  a  built-in  option;  if  the  user  presses 
only  the  R / S  key,  he  is  prompted  with  the  current  value. 

To  use  *1,  the  indirect  register  pointer  in  register  24  must  be  set  to 
the  data  register  the  input  is  to  be  stored  in.  This  pointer  is  incremented 
during  each  input  call  and  has  to  be  set  only  once  if  sequential  input  is  to 
be  stored  in  sequential  registers.  A  prompt  line  and  maximum  and  minimum 
acceptable  value  for  the  input  are  passed  to  the  subroutine  from  the  main  pro¬ 
gram.  The  subroutine  will  not  return  to  the  main  program  until  an  acceptable 
value  has  been  input.  A  "=?"  is  automatically  appended  to  the  prompt.  If 
flag  "9"  is  set,  an  "="  sign,  the  current  value  in  the  specified  register,  and 
a  are  added  to  the  prompt  and  displayed  to  the  user. 

Entry  conditions  when  calling  *1  are  as  follows:  register  X  must  contain 
the  minimum  acceptable  value,  register  Y  must  contain  the  maximum  acceptable 
value,  register  A  must  contain  the  prompt.  Register  24  must  contain  the 
address  of  the  register  that  the  input  is  to  be  stored  in. 

The  exit  conditions  from  *1  occur  when  an  acceptable  value  has  been 
entered;  *1  then  returns  to  the  calling  program.  (Jf  flag  "9"  is  set  and  R/S 
is  pressed  without  numeric  entry,  the  current  value  is  used.)  The  input  value 
is  stored  in  the  specified  register  and  in  the  X  register.  The  rest  of  the 
stack  should  be  considered  destroyed. 

A  sample  calling  sequence  follows: 

Program 

Instruction 


SF  09 


30 

STO  24 
123 
ENTER 
-37 


"HEIGHT" 

XEQ  "*I" 

M 


Explanation  I 

Optional:  used  if  "current  value"  of  variable  is  to  be 

presented  to  user  for  verification. 

Identifies  register  address  where  input  is  to  be  stored. 

i 

Stores  indirect  register  address  in  register  24. 

Specifies  maximum  acceptable  input  value  I 

Places  maximum  value  in  Y  register  ! 

j 

Specifies  minimum  acceptable  input  value  and  puts  in  (" 

X  register  j 

Specifies  prompt  to  be  presented  to  user  I 

1 

Calls  subroutine  *1  j 
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CF  09  Used  only  if  SF  09  option  is  used 

xxxxxxxx  Resume  with  main  program 

Note  that  if  input  is  sequential,  only  the  first  two  instructions  have  to  be 
programmed  before  the  first  variable  is  input*  Also,  if  the  current  value 
option  is  used,  make  sure  the  calculator  is  FIX*d  to  the  desired  setting 
before  calling  *1.  A  detailed  flowchart  of  *1  is  presented  in  Figure  G4. 
Note  that  *1  also  uses  global  subroutines  *0  and  *D . 


Global  Subroutine  *0 


This  subroutine  displays  labeled  output.  A  label  is  passed  to  the  sub¬ 
routine,  and  an  and  the  value  in  the  X  register  are  appended.  A  two-tone 
sequence  alert6  the  user  to  the  output.  The  routine  then  displays  the  labeled 
answer.  If  a  printer  is  attached,  the  output  display  is  printed,  and  the  pro¬ 
gram  continues  execution  after  a  pause.  If  no  printer  is  attached,  program 
execution  stops  until  the  the  R/S  key  is  pressed. 

Before  executing  the  subroutine,  the  user  must  ensure  that  register  X 
contains  the  numeric  data  to  be  displayed  and  that  register  A  contains  the 
label  to  be  appended.  When  the  subroutine  is  done,  it  returns  to  the  calling 
program.  No  registers  are  affected. 

A  sample  calling  sequence  follows: 


Program 

Instruction 

4.27 

"ANSWER" 


Exnlanat ion 

Puts  value  to  be  displayed  in  X  register 
Puts  label  to  be  used  in  alpha  register 


XEQ  "*0"  Executes  the  *0  subroutine 

xxxxxxxx  Resume  with  main  program 

Note  that  the  calculator  should  be  FIX"d  to  the  desired  accuracy  before  exe¬ 
cuting  *0.  A  detailed  flowchart  for  *0  is  shown  in  Figure  G5.  Note  that  *0 
also  uses  global  subroutine  *D. 


Global  Subroutine  *D 

This  subroutine  displays  an  alphanumeric  text  line.  A  two-tone  sequence 
is  used  to  alert  the  user;  the  routine  then  displays  the  contents  of  the  alpha 
register.  If  a  printer  is  attached,  the  output  iB  printed  and  displayed;  the 
progrmn  continues  execution  after  a  pause.  If  no  printer  is  attached,  program 
execution  stops  until  the  R/S  key  is  pressed. 

Before  executing  *D,  the  user  must  insure  that  register  A  contains  the 
alphanumeric  text  to  be  displayed.  When  *D  is  done,  it  returns  to  the  calling 
program.  No  registers  are  affected. 


/ 
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An  example  calling  sequence  follows: 


Program 

Instructions 

"SAMPLE" 

XEQ  "*D" 

xxxxxxxx 


Explanation 

Puts  text  to  be  displayed  in  alpha  register 
Execute  the  *D  subroutine 
Resume  with  main  program 


Figure  G6  is  a  detailed  flowchart  for  *D. 


Global  Subroutine  *Y 

This  subroutine  takes  a  prompt  that  is  passed  to  it  and  appends  "(Y/N)?" 
to  it.  The  operator  must  then  respond  with  "Y"  or  "N"  or  the  routine  will 
reprompt.  The  answer  to  tht  query  is  returned  to  the  calling  program  as  flag 
"10"  status.  For  "Y"  responses,  flag  "10"  is  set;  for  "N"  responses,  it  is 
cleared.  The  routine  automatically  places  the  calculator  in  the  alpha  mode 
before  prompting  and  turns  off  the  alpha  mode  after  the  user  inputs  a 
response . 

Before  executing  *Y,  the  user  must  insure  that  register  A  contains  the 
query  text.  When  *Y  is  done,  it  returns  to  the  calling  program.  Flag  "10" 
status  is  affected. 


A  sample  calling  sequence  follows: 


Program 

Instructions 

"PRINT" 

XEQ  "*Y" 

FS?  10 

xxxxxxxx 


Explanation 

Puts  query  text  in  alpha  register 
Executes  the  *Y  subroutine 
Tests  response:  set=yes;  clear=no 
Resume  with  main  program 


A  detailed  flowchart  for  *Y  is  shown  in  Figure  G7. 


Global  Subroutine  *A 

This  subroutine  prompts  the  user  for  alpha  input.  A  maximum  of  12  alpha 
characters  are  stored.  A  tone  sounds  to  alert  the  operator  that  input  is 
required.  A  built-in  option  allows  the  programmer  to  prompt  the  user  with  the 
"current  value"  of  the  alpha  variable.  Under  this  option,  if  R/S  is  pressed, 
the  "current  value"  of  the  text  will  be  used  when  the  program  continues  execu¬ 
tion. 


This  subroutine  requires  that  the  indirect  register  address  (pointer) 
stored  in  register  24  be  set  to  the  data  register  the  alpha  input  is  to  be 
stored  in.  The  alpha  input  is  stored  in  two  registers,  six  characters  in 
each.  The  pointer  in  register  24  is  incremented  twice  during  each  input  call, 
so  it  only  has  to  be  set  once  if  a  string  of  input  is  to  be  put  in  sequential 
registers.  A  prompt  line  to  label  the  input  is  passed  to  the  subroutine,  and 
a  "■?"  is  added  to  this  prompt  by  the  subroutine. 

To  use  the  subroutine,  the  entry  conditions  must  be  satisfied.  Register 
A  must  contain  the  prompt.  Register  24  must  contain  the  address  of  the  regis¬ 
ter  that  the  first  six  characters  of  the  input  will  be  stored  in.  If  the  pro¬ 
grammer  sets  flag  "9"  before  calling  *A,  the  "current  value"  in  the  specified 
registers  are  appended  to  the  prompt  and  are  presented  to  the  user  for  verifi¬ 
cation.  If  the  user  agrees  with  the  alpha  value  assigned,  he  presses  the  R/S 
key,  and  the  program  uses  that  alpha  value  for  the  variable.  If  the  user 
elects  to  change  the  value,  he  simply  enters  the  correct  alpha  string  (12 
characters  or  fewer),  and  presses  the  R/S  key.  This  new  alpha  value  would 
then  be  used  in  place  of  the  "current  value." 

The  following  exit  conditions  result:  *A  returns  to  the  calling  program, 
and  the  input  value  is  stored  in  the  specified  registers.  No  other  registers 
are  affected. 

A  sample  calling  sequence  follows: 


Program 

Instructions 

SF  09 

30 

STO  24 

"VARIABLENAME" 
XEQ  "*A" 

CF  09 
xxxxxxxx 


Explanation 

(Optional)  If  current  value  of  variable  is  to  be  presented 
to  user 

First  register  address  where  input  is  to  be  stored 
Stores  first  indirect  register  address  in  register  24 
Specifies  prompt  to  be  presented  to  user 
Calls  the  "*A"  subroutine 
Used  only  with  "SF  09"  option. 

Resume  with  main  program. 


Note  that  if  input  is  sequential,  only  the  second  and  third  instructions  need 
to  be  programmed  before  the  first  variable  is  input.  A  detailed  flowchart  is 
shown  in  Figure  G8. 
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Clobal  Subroutine  *C 

This  subroutine  clears  a  specified  range  of  registers  by  storing  a  "0"  in 
it.  This  subroutine  should  be  used  instead  of  CLRG  so  that  the  contents  of 
registers  not  used  in  the  application  program  are  preserved. 

Before  the  subroutine  can  be  used,  the  entry  conditions  must  be  satis¬ 
fied.  Register  X  must  contain  the  range  of  registers  to  be  cleared;  the  for¬ 
mat  is  fff.lll,  where  fff  is  the  address  of  the  first  register  to  be  cleared 
and  111  is  the  address  of  the  last  register  to  be  cleared. 

After  the  specified  registers  have  been  cleared,  *C  exits  to  the  calling 
program.  The  stack  should  be  considered  destroyed. 

A  sample  calling  sequence  follows: 


Program 

Instructions 

30.045 


XEQ  "*C" 

XXXXXXXX 


Explanation 

Specifies  address  of  registers  to  be  cleared 
(30  through  45) 

Calls  the  *C  subroutine 

Resume  with  main  program 


A  detailed  flowchart  for  *C  is  shown  in  Figure  G9, 


Clobal  Subroutine  *R 


This  subroutine  "rounds-up"  a  value  and  displays  the  integer  portion  cf 
the  number.  The  subroutine  first  adds  0.99  to  the  value  stored  in  register  X, 
then  uses  the  integer  portion  of  that  value.  Before  entering  the  subroutine, 
the  user  must  insure  that  register  X  contains  the  value  to  be  rounded.  When 
*R  is  done,  it  returns  to  the  calling  program. 


A  sample  calling  sequence  follows: 


Program 

Instructions 


Explanation 


5.49 


Specifies  value  to  be  rounded;  could  also  be  a  recall 
RCL  instruction 


XEQ  *R  Calls  the  *R  subroutine 

xxxxxxxx  Resume  with  main  program 


Figure  G10  is  a  detailed  flowchart  for  *R 


This  subroutine  displays  the  "END  PROGRAM"  message  in  large  type.  A 
two-tone  sequence  scunds  to  alert  the  user;  *P  then  displays  the  message. 
There  are  no  pre-entry  conditions  for  *P.  The  subroutine  is  called  directly 
with  the  instruction,  "XEQ  *P".  When  *P  is  done,  it  returns  to  the  calling 
program;  no  registers  are  affected.  A  detailed  flowchart  of  *P  is  in  Figure 
Gil. 
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014LBL  ”*S" 
02  "RES 1ZE>“ 
03  1 
04  - 

05  SF  25 
06  RCL  IND  X 
07  FS?C  25 
08  RTN 
09  FIX  0 
10  1 

11  + 

12  XEQ  "*0" 

13  STOP 

144LBL  "*I" 

15  XEQ  13 

16  STO  25 

17  RDN 

18  STO  26 

194LBL  08 
20  FS?  09 
21  RCL  IND  26 
22  >  =  " 

23  FS?  09 
24  ARCL  IND  24 

25 

26  CF  22 

27  TONE  5 

28  AVIEW 

29  STOP 

30  FS?  22 

31  GTO  01 

32  FC?  09 

33  GTC  00 

34  ISG  24 

35  STO  X 

36  RTN 

374LBL  00 

38  XEQ  14 

39  GTO  08 

404 LBL  01 
41  "MUST  BE" 

42  RCL  25 

43  X<»Y? 

44  GTO  02 

45  »" 


464 LBL  03 


47 

XEQ 

"*0“ 

48 

GTO 

00 

494LBL 

02 

50 

■><” 

51 

RDN 

52 

RCL 

26 

53 

X<Y? 

54 

GTO 

03 

55 

RDN 

56  STO  IND  24 

57 

ISG 

24 

58 

STO 

X 

59 

RTN 

604LBL 

”*0" 

61 

’V*" 

62 

ARCL 

X 

634LBL 

"*D" 

64 

TONE 

8 

65 

TONE 

9 

66 

AVIEW 

67 

FS? 

55 

68 

PSE 

69 

FC? 

55 

70 

STOP 

71 

RTN 

724LBL 

”*Y" 

73 

XEQ 

13 

74fLBL 

10 

75 

T-Ot/N)’ 

76 

SF  10 

77 

XEQ 

05 

78 

ASTO 

X 

79 

"Y" 

80 

ASTO 

y 

81 

X=Y? 

82 

RTN 

83 

CF  10 

84 

"N" 

85 

ASTO 

Y 

86 

X=Y? 

87 

RTN 

88 

XEQ 

14 

89 

GTO 

10 

>J0< 

4l.Hl. 

••  * 

91 

XEQ 

13 

924LBL 

09 

93 

CF 

10 

94 

"(-  = 

•• 

95 

FC? 

09 

96 

GTO 

05 

ARCL  IND  : 

98 

ISG 

24 

99 

STO 

X 

ARCL  IND  : 

101 

DSE 

24 

1024LBL 

05 

103 

104 

CF  23 

105 

AON 

106 

TONE  5 

107 

AVIEW 

108 

STOP 

109 

AOFF 

110 

FS? 

10 

111 

RTN 

112 

FS? 

23 

113 

GTO 

07 

114 

FS? 

09 

115 

GTO 

06 

116 

XEQ 

14 

117 

GTO 

09 

1184LBL 

07 

119  ASTO  IND  24 

120  ASHF 

121  ISG  24 

122  STO  X 
123  ASTO  IND  24 

124  DSE  24 

1254LBL  06 
126  CLA 

127  ARCL  IND  24 

128  ISG  24 

129  STO  X 
130  ARCL  IND  24 

131  ISG  24 

132  STO  X 

133  RTN 


Figure  Gl.  Global  subroutines  —  listing. 
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134#LBL  13 

21+LBL  "*P" 

135  ASTO  20 

22  SF  12 

136  ASHF 

23  "END  PROGRAM" 

137  ASTO  21 

24  TONE  8 

138  ASHF 

25  TONE  9 

139  ASTO  22 

26  AVIEW 

140  ASHF 

27  CF  12 

141  ASTO  23 

28  ADV 

29  ADV 

142+LBL  14 

30  ADV 

143  CLA 

31  ADV 

144  ARCL  20 

32  RTN 

145  ARCL  21 

33  "NOTErCERL  VERS I 

146  ARCL  22 

34  "hON,2APR82" 

147  ARCL  23 

35  .END. 

148  RTN 

149  "26/01,‘ 

150  .END. 

01+LBL  "*F" 
02  7 

03fLBL  04 
04  CF  IND  X 
05  DSE  X 
06  GTO  04 
07  CF  00 
08  RTN 

094LBL  "*C" 
10  0 

11+LBL  11 
12  STO  IND  Y 

13  ISG  Y 

14  GTO  11 

15  RTN 

16+LBL  ”*R" 

17  .99 

18  + 

19  INT 

20  RTN 


Figure  Gl.  (Cont'd). 
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Figure  G2.  Detailed  program  flowchart  for  *S  subroutine 
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Figure  G3.  Detailed  pro gran  flowchart  for  *F  subroutine 
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FS722 


Figure  G4.  (Cont'd). 
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Figure  G5.  Detailed  program  flowchart  for  *0  subroutine 


Figure  G6.  Detailed  program  flowchart  for  *D  subroutine 
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Figure  G7 .  Detailed  program  flowchart  for  *Y  subroutine 
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DISPLAY  MESSAGE 

(107) 


Figure  G8.  Detailed  program  flowchart  for  *A  subroutine. 
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ANSWER  YES? 
vdlO-IIIL/' 


S^rS 
ALPHA 
RESPONSE? 
(112- 1 13)^ 


Figure  G8.  (Cont'd). 
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Figure  G9.  Detailed  program  flowchart  for  *C  subrout 


Figure  G10.  Detailed  program  flowchart  for  *R  subrout 


APPENDIX  H: 
BLANK  FORMS 


MILITARY  ENGINEERING  PROGRAM  DOCUMENTATION 


PROGRAM  TITLE: 

AIITHnR  (SI 

HATE 

AnnDPQC 

TEL  NO 

riTv 

STATE 

ZIP 

pniMT  OF  rflNTAflT 

ADDRESS 

TEL.  NO. 

r.lTV 

STATE 

ZIP 

DOCUMENTATION  CHECKLIST 

□  PlUGRAM  ABSTRACT 

□  PROGRAM  SEQUENCE 

□  EXAMPLE  PROBLEM(S)  -  WITHOUT  PRINTER 

□  EXAMPLE  PROBLEMS(S)  -  WITH  PRINTER 

□  GENERAL  PROGRAM  INFORMATION 

□  PROGRAM  METHODOLOGY 

□  PROGRAM  LABELS 

□  PROGRAM  FLAGS 

□  PROGRAM  REGISTERS 

□  PROGRAM  "WIRING  DIAGRAM" 

□  PROGRAM  LISTING 

□  DETAILED  PROGRAM  FLOWCHART 

□  MAGNETIC  CARD  COPY  OF  PROGRAM 
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PROGRAM  ABSTRACT 


PROGRAM  TITLE: 


ABSTRACT: 


ACCESSORIES  REQUIRED: 


REGISTER  ALLOCATIONS: 

DATA  REGISTERS  REQUIRED _ (EXECUTE  "SIZE _ ") 

PROGRAM  REGISTERS  REQUIRED  _ 


Page 
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PROGRAM  SEQUENCE 


PROGRAM  TITLE: 


EXAMPLE  PROBLEM  (WITHOUT  PRINTER) 


□  CONTINUATION  SHEET  USED 
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P*ga  of 


EXAMPLE  PROBLEM  CONTINUATION  SHEET  (WITHOUT  PRINTER) 


PROGRAM  TITLE: 

STEP  I  PRESS  I  RESULTING  DISPLAY  I  COMMENTS 


□  CONTINUATION  SHEET  USED 


Pag*  of 
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PROGRAM  TITLE: 


STATEMENT  OF  EXAMPLE  PROBLEM: 


STATEMENT  OF  EXAMPLE  PROBLEM: 


_ GENERAL  PROGRAM  INFORMATION 

PROGRAM  TITLE: 

ABBREVIATIONS: 


OPERATING  LIMITS  AND  WARNINGS: 


SOURCE  REFERENCE  NOTES: 


Pa«B  of 
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PROGRAM  LABELS 


PROGRAM  TITLE: 


LABEL  DESCRIPTION 


PROGRAM  LISTING 


DETAILED  PROGRAM  FLOWCHART 


CLRL  DISTRIBUTION 


Chief  of  Engineers 

ATTN 

2  Engr  Bn 

96224 

ATTN:  Tech  Monitor 

ATTN 

3  Engr  Bn 

31313 

ATTN:  DAEN-ASI-L  (2) 

ATTN 

4  Engr  Bn 

80913 

ATTN:  DAEN-ZCM 

ATTN 

5  Engr  Bn 

65473 

ATTN 

7  Engr  Bn 

71459 

FESA,  ATTN:  Library  22060 

ATTN 

8  Engr  Bn 

76545 

ATTN 

9  Engr  Bn 

09162 

416th  Engineer  Conaand  60623 

ATTN 

10 

Engr 

Bn 

09701 

ATTN:  Facilities  Engineer 

ATTN 

11 

Engr 

Bn 

22060 

ATTN 

12 

Engr 

Bn 

09111 

R0K/US  Combined  Forces  Cosoand  96301 

ATTN 

13 

Engr 

Bn 

93941 

ATTN:  EUSA-HHC-CFC/Engr 

ATTN 

14 

Engr 

Bn 

93941 

ATTN 

15 

Engr 

Bn 

98433 

US  Military  Academy  10996 

ATTN 

16 

Engr 

Bn 

09696 

ATTN:  Dept  of  Geography  & 

ATTN 

17 

Engr 

Bn 

76546 

Computer  Science 

ATTN 

19 

Engr 

Bn 

40121 

ATTN 

20 

Engr 

Bn 

42223 

Engineer  Studies  Center  20315 

ATTN 

23 

Engr 

Bn 

09165 

ATTN:  Library 

ATTN 

27 

Engr 

Bn 

28307 

ATTN 

30 

Engr 

Bn 

22060 

AMMRC,  ATTN:  DkXMR-WE  02172 

ATTN 

34 

Engr 

Bn 

66442 

ATTN 

39 

Engr 

Bn 

01433 

USA  ARRCOM  61299 

ATTN 

43 

Engr 

Bn 

31905 

ATTN:  DRC1S-RI-I 

ATTN 

44 

Engr 

Bn 

96483 

ATTN:  DRCIS-IS 

ATTN 

46 

Engr 

Bn 

36362 

ATTN 

52 

Engr 

Bn 

80913 

DU,  ATTN:  DU-WI  22314 

ATTN 

54 

Engr 

Bn 

09026 

ATTN 

62 

Engr 

Bn 

76544 

FORSCOM 

ATTN 

65 

Engr 

Bn 

96857 

FORSCOM  Engineer,  ATTN:  AFEN-FE 

ATTN 

76 

Engr 

Bn 

20755 

ATTN 

78 

Engr 

Bn 

09351 

Fort  Belvolr,  VA  22060 

ATTN 

79 

Engr 

Bn 

09360 

ATTN:  ATZA-DTE-EM 

ATTN 

82 

Engr 

Bn 

09139 

ATTN:  ATZA-DTE-SW 

ATTN 

84 

Engr 

Bn 

96857 

ATTN:  ATZA-FE 

ATTN 

92 

Engr 

Bn 

31313 

ATTN:  Engineer  Library 

ATTN 

94 

Engr 

Bn 

09175 

ATTN:  Canadian  Liaison  Officer  (2) 

ATTN 

237 

Engr 

Bn 

09176 

ATTN:  IWR  Library 

ATTN 

249 

Engr 

Bn 

09360 

ATTN 

293 

Engr 

Bn 

09034 

Cold  Regions  Research  Engr  Ub 

03755 

ATTN 

299 

Engr 

Bn 

73503 

ATTN:  Library 

ATTN 

307 

Engr 

Bn 

28307 

ATTN 

317 

Engr 

Bn 

09757 

ETL,  ATTN:  Library  22060 

ATTN 

326 

Engr 

Bn 

42223 

ATTN 

547 

Engr 

Bn 

09175 

Waterways  Experiment  Station 

39180 

ATTN 

548 

Engr 

Bn 

28307 

ATTN:  Library 

ATTN 

549 

Engr 

Bn 

28307 

ATTN 

549 

Engr 

Bn 

09081 

HQ,  XVIII  Airborne  Corps  A  Ft 

Bragg  28307 

ATTN 

559 

Engr 

Bn 

09165 

ATTN:  Library 

ATTN 

563 

Engr 

Bn 

09154 

ATTN 

565 

Engr 

Bn 

09164 

Defense  Technical  Info  Center 

22314 

ATTN 

588 

Engr 

Bn 

71459 

ATTN:  DDA  (12) 

ATTN 

649 

Engr 

Bn 

09081 

ATTN 

652 

Engr 

Bn 

96858 

US  Government  Printing  22304 

ATTN 

802 

Engr 

Bn 

96271 

Receiving  Section/Depository  Copies  (2) 

ATTN 

864 

Engr 

Bn 

98433 

US  Army,  Commander 


ATTN: 

7  Engr  Bde 

09154 

ATTN: 

18  Engr  Bde 

09164 

ATTN: 

20  Engr  Lie 

28307 

ATTN: 

130  Engr  Bde 

09165 

ATTN: 

2  Engr  Grp 

96301 

ATTN: 

36  Engr  Grp 

31905 

ATTN: 

937  Engr  Grp 

66442 

ATTN: 

1  Engr  Bn  66442 

National  Guard  Bureau  20310 
Installation  Division 
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